home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / metafontMode.tcl < prev    next >
Encoding:
Text File  |  2000-11-11  |  101.6 KB  |  3,137 lines
  1. ## -*-Tcl-*- (install) (nowrap)
  2. #   This is Metafont Mode for Alpha 7.2 or later. 
  3. #   If you still have Alpha 7.0 or 7.1, get Metafont Mode version 1.0 (and update soon).
  4. # 
  5. # Metafont Mode is a mode for the text editor Alpha: it is designed  to  make
  6. # writing, processing and testing  of  Metafont  source  files  much  easier.
  7. # Metafont is the programming language written, as a  companion  to  TeX,  by
  8. # Donald Knuth in order to create characters, fonts, font families (and  many
  9. # others things). Once Metafont mode is installed, the opening of a  Metafont
  10. # source file (i-e with extension .mf) invokes a new menu (called Metafont !)
  11. # in the menu bar with the following features :
  12. # -  easy insertion of all the basic Metafont commands (with electric stops)
  13. # -  syntax coloring
  14. # -  file marking
  15. # -  capacity to process a source file from within Alpha with various  flags,
  16. # printer modes, input base files
  17. # -  editing the log file
  18. # - capacity to make the pk file, to make the dvi from the generic  font,  to
  19. # view the dvi, to convert dvi to ps from within Alpha
  20. # -  capacity to make and to edit the property list of a font
  21. # -  capacity to process an entire folder of mf source files
  22. # -  ready to use template for a new font
  23. # -  key bindings to choose the processing mode, process files etc.
  24. # -  advanced keywords completion
  25. # -  command clicking on a word leads to its definition
  26. # -  option clicking on the title bar of a window brings a list  of  .mf  and
  27. # .log files at the same level or in a selected folder  and  allows  to  edit
  28. # them.
  29. # 
  30. # As of this release, both <CMacTeX Metafont> and <OzMetafont> are  supported
  31. # (together with their respective gftopk, gftodvi, dvipreviewer and tftopl).
  32. # 
  33. #      -->  Click here on <Metafont Help> to read the instructions or open 
  34. #      this file from the Help menu.
  35. # 
  36.  ## Author :  Bernard Desgraupes  
  37.  ## e-mail:   <berdesg@easynet.fr>
  38.  ## www:  <http://perso.easynet.fr/~berdesg/metafont.html>
  39.  ## Created : 03/28/99
  40.  ## Last modification : 23 juin 2000 - 22:09:55
  41. ##
  42. ##  Copyright (c) Bernard Desgraupes 1999, 2000
  43.  #
  44.  # 
  45. ## 
  46.  # This program is free software; you can redistribute it  and/or  modify
  47.  # it under the terms of the GNU General Public License as  published  by
  48.  # the Free Software Foundation; either version 2 of the License, or  any
  49.  # later version :
  50.  # <http://www.gnu.org/copyleft/gpl.html> 
  51.  # This program is distributed in the hope that it will  be  useful,  but
  52.  # WITHOUT ANY WARRANTY; without even    the    implied    warranty    of
  53.  # MERCHANTABILITY or FITNESS FOR  A  PARTICULAR  PURPOSE.  See  the  GNU
  54.  # General Public License for more details.
  55.  # You should have received a copy of  the  GNU  General  Public  License
  56.  # along with this program; if not, write to the FreeSoftware Foundation,
  57.  # Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  58.  ##
  59.  
  60.  
  61. alpha::mode Mf 1.2.31 mfMenu {*.mf *.plf *.vpl} mfMenu {
  62.     alpha::package require AlphaTcl 7.2
  63.     addMenu mfMenu "Metafont"
  64. } maintainer {
  65.     "Bernard Desgraupes" <berdesg@easynet.fr> <http://perso.easynet.fr/~berdesg/metafont.html> 
  66. } uninstall this-file help {file "Metafont Help"}
  67.  
  68.  
  69. namespace eval Mf {}
  70.  
  71. #######   Preferences  #############
  72.  
  73. newPref f wordWrap {0} Mf
  74. # Set this flag if you want your source file to be marked automatically when it is opened.
  75. newPref f autoMark {1} Mf
  76. # Set this flag if you want the tab key to behave electrically (to jump from a bullet
  77. # to the next one in templates for instance).
  78. newPref f electricTab {1} Mf
  79. # Metafont particular processing option.
  80. # Metafont particular processing option.
  81. newPref f gfcorners 0 Mf  Mf::shadowMf
  82. # Metafont particular processing option.
  83. newPref f imagerules 0 Mf   Mf::shadowMf
  84. # Metafont particular processing option.
  85. newPref f nodisplays 0 Mf   Mf::shadowMf
  86. # Metafont particular processing option.
  87. newPref f notransforms 0 Mf   Mf::shadowMf
  88. # Metafont particular processing option.
  89. newPref f screenstrokes 0 Mf   Mf::shadowMf
  90. # Metafont particular processing option.
  91. newPref f screenchars 0 Mf   Mf::shadowMf
  92. # Set this flag to build a list of all source files on your installation.
  93. # You will have to set the path to the top folder with the PathToSourceFile
  94. # preference. Folders can be nested : use the NestingDepth pref to say how deep.
  95. newPref f buildSourceFiles 0 Mf Mf::shadowList
  96. # If this flag is set all the output will go in the MFworkFolder
  97. # instead of going in the same folder as the source file. 
  98. # This feature works only with CMacTeX Metafont.
  99. newPref f useWorkFold 0 Mf
  100. # Name of the printer mode for Metafont : for instance cx at 300dpi, 
  101. # canonex at 600dpi etc. Default is canonex.
  102. newPref v mfModeForPrinter canonex Mf
  103. # Prefix for comments in Metafont source files.
  104. newPref v prefixString {% } Mf
  105. # Regular expression used in the Functions pop-up menu 
  106. # (above the M pop-up menu, top right of the current window).
  107. newPref v funcExpr {^(def|vardef|primarydef|secondarydef|tertiarydef) [^\(=@;\r]+} Mf
  108. # Metafont mode's notion of what is a word.
  109. newPref v wordBreak {[_\w]+} Mf
  110. newPref v wordBreakPreface {[^_\w]} Mf
  111. # Here we allow the user to customize the denomination of the beginchar macro.
  112. newPref v userBeginchar beginchar Mf
  113. # To customize the denomination of the endchar macro.
  114. newPref v userEndchar endchar Mf
  115. # Default colo(u)rs for the keywords
  116. newPref v commentColor red Mf
  117. newPref v keywordColor blue Mf
  118. newPref v stringColor green Mf
  119. newPref v primitivesColor magenta Mf
  120. # Metafont menu, when used for the first time, must determine
  121. # which Metafont application is installed. A proc will do
  122. # that automatically, but this choice can be overriden afterwards
  123. # in the mode specific prefs.
  124. newPref v mfAppSig {} Mf Mf::rebuildOtherfiles
  125. # Folder where Metafont sends its output to.
  126. newPref folder MfworkFolder $HOME Mf
  127. # Where is the file modes.mf defining the parameters' values for 
  128. # all possible Metafont modes ?
  129. newPref file pathToModesMfFile {} Mf
  130. # Where is the file plain.mf defining the Metafont's basic macros ?
  131. newPref file pathToPlainMfFile {} Mf
  132. # Set here the location of a folder containing mf files (for instance the top one on your
  133. # installation but not necessarily). It may contain subfolders : choose the depth with 
  134. # the nestingDepth pref.
  135. newPref file pathToSourceFolder {} Mf Mf::shadowList
  136. # Choose the depth of subfolders nesting in the main source folder.
  137. newPref v nestingDepth {3} Mf Mf::shadowList
  138. # To insert your name in the preambule of a new font template.
  139. newPref v myName {} Mf
  140. # To insert your e-mail in the preambule of a new font template.
  141. newPref v myEMail {} Mf
  142. # To insert your home page in the preambule of a new font template.
  143. newPref url myWebPage {http://} Mf
  144.  
  145.  
  146. #######   Initialization of some variables  #############
  147. set MFtailfilename [file tail [win::Current]]
  148. set chosenMode proof
  149. set mag 1
  150. set vars [list gfcorners imagerules nodisplays notransforms screenchars screenstrokes \
  151.       magstep magflag magstepflag Mfbasefileflag mfset]
  152. foreach v $vars { set $v 0 }
  153. set vars [list prefixtfm prefixplf prefixgf prefixdvi prefixlog prefixrmall fromfolder]
  154. foreach v $vars { set $v "(" }
  155. set mfwd $HOME
  156. set MFoutputfolder $MfmodeVars(MfworkFolder)
  157. set Mfbasefile ""
  158. set tfmfile ""
  159. set MFcurrentdir ""
  160. set MFfilenames ""
  161. # To prefix subfolders names in the Source Files menu:
  162. set mfsymb "•"
  163. set Mf::commentCharacters(General) "%"
  164. set Mf::commentCharacters(Paragraph) [list "%% " " %%" " % "]
  165. set Mf::commentCharacters(Box) [list "%" 1 "%" 1 "%" 3]
  166.  
  167. proc mfMenu {} {}
  168.  
  169. hook::register activateHook Mf::rebuildOtherfiles Mf
  170.  
  171. #############  Select the Metafont application when using this mode for the first time #############
  172.  
  173. if {$MfmodeVars(mfAppSig)== ""} {
  174.     set mfsignlist [list "CMacTex mf" "OzMetafont"]
  175.     set sig [listpick -p "Select your Metafont application"  $mfsignlist]
  176.     switch $sig {
  177.         "CMacTex mf" {set mfAppSig "CMT3"}
  178.         "OzMetafont" {set mfAppSig "OzMF"}
  179.         }
  180.     removeArrDef MfmodeVars mfAppSig
  181.     set MfmodeVars(mfAppSig) $mfAppSig
  182.      addArrDef MfmodeVars mfAppSig $mfAppSig
  183. }
  184.  
  185. # # A proc to search a directory 'dir' and all its subdirectories looking for files
  186. # # with extension 'mf'.
  187. proc Mf::listSrcInDir {dir ext} {
  188.     global MFfilenames
  189.     set itemslist($dir) [glob -nocomplain -dir $dir *]
  190.     foreach f $itemslist($dir) {
  191.     if {[file isfile $f] && [file extension [file tail $f]]==".mf"} {
  192.         set f [file tail $f]
  193.         regsub "\(\[^\\.\]\)\.mf" $f "\\1" f
  194.         lappend MFfilenames " $f"
  195.     } elseif {[file isdirectory $f]} {
  196.         Mf::listSrcInDir $f mf
  197.     }
  198.     }
  199. }
  200.  
  201.  
  202. ##############################################
  203. #                                            #
  204. #    Metafont Menus Building Procs           #
  205. #                                            #
  206. ##############################################
  207.  
  208. menu::buildProc mfMenu menu::buildMf
  209. menu::buildProc otherFiles menu::buildotherFiles
  210. menu::buildProc removeFiles menu::buildremoveFiles
  211. menu::buildProc sourceFiles menu::buildsourceFiles
  212.  
  213. proc menu::buildMf {} {
  214.     global mfMenu otherFiles MFtailfilename
  215.     set ma {
  216.     "switchToMetafont"
  217.     "(-"
  218.     "/R<UrunTheBuffer"
  219.     "saveAndRun"
  220.     "<E<SrunAFile"
  221.     "<S<IrunAFolder"
  222.     "<S<BrunCurrentFolder"
  223.     "(-"
  224. {Menu -n "metafontMode" -p Mf::choosemodeProc {
  225.     "proof"
  226.     "smoke"
  227.     "localfont"
  228.     "userDefined"
  229.     }
  230. }
  231. {Menu -n "processingOptions" -p Mf::processingoptProc {
  232.     "mag..."
  233.     "magstep..."
  234.     "baseFile..."
  235.     "(-"
  236.     "gfcorners"
  237.     "imagerules"
  238.     "nodisplays"
  239.     "notransforms"
  240.     "screenchars"
  241.     "screenstrokes"
  242.     "(-"
  243.     "clearAllOptions"
  244.     }
  245. }
  246.     "(-"
  247. }
  248.     lappend ma [list Menu -n sourceFiles {}]
  249.     lappend ma [list Menu -n otherFiles {}]
  250.     append ma {
  251.       "(-"
  252.       "newFontTemplate"
  253.       "(-"
  254. {Menu -n "variables" -p Mf::variablesProc {    
  255.     " boolean"
  256.     " numeric"
  257.     " pair"
  258.     " path"
  259.     " pen"
  260.     " picture"
  261.     " string"
  262.     " transform"
  263.     " newinternal"
  264.     }
  265. }
  266. {Menu -n "boolean" -p Mf::booleanProc {    
  267.     " charexists"
  268.     " cycle"
  269.     " false"
  270.     " known"
  271.     " true"
  272.     " unknown"
  273.     }
  274. }
  275. {Menu -n "functions" -p Mf::functionsProc {    
  276.     " angle"
  277.     " ceilling"
  278.     " floor"
  279.     " cosd"
  280.     " sind"
  281.     " mexp"
  282.     " mlog"
  283.     " sqrt"
  284.     "(-"
  285.     " round"
  286.     " hround"
  287.     " vround"
  288.     " dotprod"
  289.     "(-"
  290.     " eps"
  291.     " epsilon"
  292.     " infinity"
  293.     "(-"
  294.     " solve"
  295.     " tolerance"
  296.     "(-"
  297.     " normaldeviate"
  298.     " randomseed"
  299.     " uniformdeviate"
  300.     " whatever"
  301.     }
  302. }
  303. {Menu -n "positioning" -p Mf::positioningProc {    
  304.     " direction"
  305.     " directionpoint"
  306.     " directiontime"
  307.     " penoffset"
  308.     " point…of"
  309.     " precontrol…of"
  310.     " postcontrol…of"
  311.     " intersectionpoint"
  312.     " intersectiontimes"
  313.     "(-"
  314.     " good.bot"
  315.     " good.lft"
  316.     " good.rt"
  317.     " good.top"
  318.     " good.x"
  319.     " good.y"
  320.     "(-"
  321.     " xpart"
  322.     " xxpart"
  323.     " xypart"
  324.     " ypart"
  325.     " yxpart"
  326.     " yypart"
  327.     " clearxy"
  328.     }
  329. }
  330. {Menu -n "paths" -p Mf::pathsProc {    
  331.     " penstroke"
  332.     " build…penstroke"
  333.     "(-"
  334.     " flex"
  335.     " fullcircle"
  336.     " halfcircle"
  337.     " quartercircle"
  338.     " superellipse"
  339.     " unitsquare"
  340.     "(-"
  341.     " makepath"
  342.     " interpath"
  343.     " subpath"
  344.     " tensepath"
  345.     " counterclockwise"
  346.     " reverse"
  347.     "(-"
  348.     " turningnumber"
  349.     }
  350. }
  351. {Menu -n "pens" -p Mf::pensProc {    
  352.     " <E<Spencircle"
  353.     " <S<Opickup…pencircle"
  354.     " <S<Ipencircle…scaled"
  355.     " <S<I<Opickup…pencircle…scaled"
  356.     " <E<Spensquare"
  357.     " <S<Opickup…pensquare"
  358.     " <S<Ipensquare…scaled"
  359.     " <S<I<Opickup…pensquare…scaled"
  360.     " penrazor"
  361.     " penspeck"
  362.     "(-"
  363.     " penpos"
  364.     "(-"
  365.     " clear_pen_memory"
  366.     " clearpen"
  367.     " currentpen"
  368.     " makepen"
  369.     " nullpen"
  370.     " savepen"
  371.     "(-"
  372.     " pen_bot"
  373.     " pen_lft"
  374.     " pen_rt"
  375.     " pen_top"
  376.     " pickup"
  377.     }
  378. }
  379. {Menu -n "pictures" -p Mf::picturesProc {    
  380.     " blankpicture"
  381.     " clearit"
  382.     " currentpicture"
  383.     " nullpicture"
  384.     "(-"
  385.     " totalweight"
  386.     " unitpixel"
  387.     }
  388. }
  389. {Menu -n "transformations" -p Mf::transformationsProc {    
  390.     " currenttransform"
  391.     " identity"
  392.     " inverse"
  393.     " reflectedabout"
  394.     " rotated"
  395.     " rotatedaround"
  396.     " scaled"
  397.     " shifted"
  398.     " slanted"
  399.     " transformed"
  400.     " xscaled"
  401.     " yscaled"
  402.     " zscaled"
  403.     }
  404. }
  405. {Menu -n "definitions" -p Mf::definitionsProc {    
  406.     " def…enddef"
  407.     " suffix"
  408.     " expr"
  409.     " text"
  410.     " primarydef…enddef"
  411.     " secondarydef…enddef"
  412.     " tertiarydef…enddef"
  413.     " vardef…enddef"
  414.     " begingroup…endgroup"
  415.     }
  416. }
  417. {Menu -n "conditions" -p Mf::conditionsProc {    
  418.     " for…endfor"
  419.     " forever…endfor"
  420.     " forsuffixes…endfor"
  421.     " if…fi"
  422.     " if…elseif…else…fi"
  423.     " downto"
  424.     " upto"
  425.     " step…until"
  426.     " exitif"
  427.     " exitunless"
  428.     }
  429. }
  430. {Menu -n "drawing" -p Mf::drawingProc {    
  431.     " <Saddto…also"
  432.     " <S<Iaddto…currentpicture"
  433.     " <E<Saddto…contour"
  434.     " <S<Iaddto…contour…withpen"
  435.     " <S<Oaddto…contour…withweight"
  436.     " <E<Saddto…doublepath"
  437.     " <S<Iaddto…doublepath…withpen"
  438.     " <S<Oaddto…doublepath…withweight"
  439.     " <E<Scull…dropping"
  440.     " <S<Ocull…dropping…withweight"
  441.     " <E<Scull…keeping"
  442.     " <S<Ocull…keeping…withweight"
  443.     " cullit"
  444.     "(-"
  445.     " <E<Sdraw"
  446.     " <S<Iundraw"
  447.     " <E<Sdrawdot"
  448.     " <S<Iundrawdot"
  449.     " <E<Sfill"
  450.     " <S<Iunfill"
  451.     " <E<Sfilldraw"
  452.     " <S<Iunfilldraw"
  453.     "(-"
  454.     " cutdraw"
  455.     " cutoff"
  456.     " erase"
  457.     }
  458. }
  459. {Menu -n "characters" -p Mf::charactersProc {    
  460.     " beginchar…endchar"
  461.     " extra_beginchar"
  462.     " extra_endchar"
  463.     }
  464. }
  465. {Menu -n "modesDefinitions" -p Mf::unitsProc {    
  466.     " blacker"
  467.     " fillin"
  468.     " o_correction"
  469.     " fix_units"
  470.     " mode_setup"
  471.     " pixels_per_inchs"
  472.     " aspect_ratio"
  473.     }
  474. }
  475. {Menu -n "pixellisation" -p Mf::pixellisationProc {    
  476.     " define_pixels"
  477.     " define_blacker_pixels"
  478.     " define_good_x_pixels"
  479.     " define_good_y_pixels"
  480.     " define_corrected_pixels"
  481.     " define_horizontal_corrected_pixels"
  482.     " define_whole_pixels"
  483.     " define_whole_blacker_pixels"
  484.     " define_whole_vertical_pixels"
  485.     " define_whole_vertical_blacker_pixels"
  486.     }
  487. }
  488. {Menu -n "fontInternals" -p Mf::fontInternalsProc {    
  489.     " charlist"
  490.     " extensible"
  491.     " font_coding_scheme"
  492.     " font_extra_space"
  493.     " font_identifier"
  494.     " font_normal_shrink"
  495.     " font_normal_space"
  496.     " font_normal_stretch"
  497.     " font_quad"
  498.     " font_size"
  499.     " font_slant"
  500.     " font_x_height"
  501.     " fontdimen"
  502.     " headerbytes"
  503.     " ligtable"
  504.     " kern"
  505.     }
  506. }
  507. {Menu -n "strings" -p Mf::stringsProc {    
  508.     " ditto"
  509.     " jobname"
  510.     " readstring"
  511.     " substring"
  512.     }
  513. }
  514. {Menu -n "displaying" -p Mf::displayingProc {    
  515.     " currentwindow"
  516.     " display…inwindow"
  517.     " openwindow…from…to…at"
  518.     " screen_cols"
  519.     " screen_rows"
  520.     " screenrule"
  521.     }
  522. }
  523. {Menu -n "output" -p Mf::outputProc {    
  524.     " openit"
  525.     " shipit"
  526.     " showit"
  527.     "(-"
  528.     " labels"
  529.     " labels…range…thru"
  530.     " penlabels"
  531.     " makelabel"
  532.     " makegrid..."
  533.     "(-"
  534.     " proofoffset"
  535.     " proofrule"
  536.     " proofrulethickness"
  537.     "(-"
  538.     " grayfont"
  539.     " labelfont"
  540.     " slantfont"
  541.     " titlefont"
  542.     }
  543. }
  544. {Menu -n "debugging" -p Mf::debuggingProc {    
  545.     " errhelp"
  546.     " errmessage"
  547.     " message"
  548.     " stop"
  549.     "(-"
  550.     " show"
  551.     " showdependencies"
  552.     " showstats"
  553.     " showtoken"
  554.     " showvariable"
  555.     "(-"
  556.     " loggingall"
  557.     " tracingall"
  558.     " tracingnone"
  559.     "(-"
  560.     " batchmode"
  561.     " errorstopmode"
  562.     " nonstopmode"
  563.     " scrollmode"
  564.     }
  565. }
  566. {Menu -n "misc" -p Mf::miscProc {    
  567.     " capsule_def"
  568.     " expandafter"
  569.     " gobble"
  570.     " gobbled"
  571.     " interact"
  572.     " numtok"
  573.     " scantokens"
  574.     " special"
  575.     " numspecial"
  576.     }
  577. }
  578. {Menu -n "internalVariables" -p Mf::varintProc {    
  579.     " autorounding"
  580.     " designsize"
  581.     " fontmaking"
  582.     " granularity"
  583.     " pausing"
  584.     " proofing"
  585.     " showstopping"
  586.     " smoothing"
  587.     "(-"
  588.     " charcode"
  589.     " chardp"
  590.     " chardx"
  591.     " chardy"
  592.     " charext"
  593.     " charht"
  594.     " charic"
  595.     " charwd"
  596.     "(-"
  597.     " hppp"
  598.     " vppp"
  599.     "(-"
  600.     " xoffset"
  601.     " yoffset"
  602.     "(-"
  603.     " day"
  604.     " month"
  605.     " year"
  606.     " time"
  607.     "(-"
  608.     " tracingcapsules"
  609.     " tracingchoices"
  610.     " tracingcommands"
  611.     " tracingedges"
  612.     " tracingequations"
  613.     " tracingmacros"
  614.     " tracingonline"
  615.     " tracingoutput"
  616.     " tracingpens"
  617.     " tracingrestores"
  618.     " tracingspecs"
  619.     " tracingstats"
  620.     " tracingtitles"
  621.     " turningcheck"
  622.     " warningcheck"
  623.     }
  624. }
  625. }
  626.     return [list build $ma Mf::menuProc {sourceFiles otherFiles} $mfMenu]
  627. }
  628.  
  629. proc menu::buildotherFiles {} {
  630.     global MFfullfilename MFdirfilename MFtailfilename #
  631.     global MFbasefilename MFextfilename MFoutputfolder #
  632.     global MfmodeVars mfAppSig MfworkFolder fromfolder MFcurrentdir
  633.     global prefixtfm prefixdvi prefixplf prefixgf prefixlog prefixrmall 
  634.     
  635.     set MFbasefilename [file rootname [file tail [win::Current]]]
  636.     set ma "${prefixgf}convertGfToPk"
  637.     if {$MfmodeVars(mfAppSig) == "CMT3"} {
  638.     lappend ma "<E${prefixgf}convertGfToDvi"
  639.     }
  640.     lappend ma "<E${prefixdvi}view $MFbasefilename.dvi"
  641.     if {$MfmodeVars(mfAppSig) == "CMT3"} {
  642.     lappend ma "<E${prefixdvi}convert $MFbasefilename.dvi to ps"
  643.     }
  644.     lappend ma "<E<S${prefixtfm}convert $MFbasefilename.tfm to pl"
  645.     lappend ma "<E<StfmToPl..."
  646.     lappend ma "<S<ItfmToPlAFolder..."
  647.     lappend ma "<S<BtfmToPlCurrentFolder"
  648.     lappend ma "<E<SvpToVf..."
  649.     lappend ma "<S<IvpToVfAFolder..."
  650.     lappend ma "<S<BvpToVfCurrentFolder"
  651.     lappend ma "(-"
  652.     lappend ma "<S${prefixlog}open $MFbasefilename.log"
  653.     lappend ma "<S<I${fromfolder}openAllLogFiles"
  654.     lappend ma "<E<S${prefixplf}openPropertyList" 
  655.     lappend ma "<S<I${fromfolder}openAllPropertyLists" 
  656.     foreach i {"(-" "open modes.mf" "open plain.mf" "(-" "metafontBindings"} {
  657.     lappend ma $i
  658.         }
  659.     lappend ma "chooseAFolder..."
  660.     lappend ma [list Menu -n removeFiles {}]
  661.     lappend ma  "(-"
  662. if {$MFcurrentdir != ""} {
  663.     lappend ma  [menu::itemWithIcon "currentFolderIs:" 83] 
  664.     lappend ma " [file tail $MFcurrentdir]"
  665.     } else {
  666.         lappend ma [menu::itemWithIcon "noFolderSelected" 82] 
  667. }
  668.       return [list build $ma Mf::otherfilesProc {removeFiles} ]
  669. }
  670.  
  671. proc menu::buildremoveFiles {} {
  672.     global MFcurrentdir prefixrmall 
  673.     set ma "${prefixrmall}allLogFiles"
  674.     lappend ma "${prefixrmall}allGfFiles"
  675.     lappend ma "${prefixrmall}allPkFiles"
  676.     lappend ma "${prefixrmall}allDviFiles"
  677.     lappend ma "${prefixrmall}allTfmFiles"
  678.     lappend ma "${prefixrmall}allVfFiles"
  679.     lappend ma "${prefixrmall}allPlFiles"
  680.     lappend ma "${prefixrmall}allVplFiles"
  681.     lappend ma "(-"
  682.     lappend ma "${prefixrmall}allOfThem"
  683.  
  684.     return [list build $ma Mf::removefilesProc ]
  685. }    
  686.  
  687. proc menu::buildsourceFiles {} {
  688.     global mfSubmenuItems MfmodeVars pathToSourceFolder buildSourceFiles
  689.     global nestingDepth MFfilenames reste mfsymb
  690.     set defaultSubmenuItems "Menu -m -n sourceFiles -p Mf::sourceFilesProc \{{Rebuild Source List} {(-}\}"
  691.     if {$MfmodeVars(buildSourceFiles)} {
  692.     if {$MfmodeVars(pathToSourceFolder) == ""} {
  693.         catch {get_directory -p "Locate the mf sources folder."} mfdir
  694.         if {$mfdir != ""} {
  695.         removeArrDef MfmodeVars pathToSourceFolder
  696.         set MfmodeVars(pathToSourceFolder) $mfdir
  697.         addArrDef MfmodeVars pathToSourceFolder $mfdir
  698.         } else {
  699.         set MFfilenames {}
  700.         return $defaultSubmenuItems
  701.         }        
  702.     }    
  703.     if { ![info exists mfSubmenuItems] || $mfSubmenuItems == "" } {
  704.         global mfPaths
  705.         set reste ""
  706.         set mfSubmenuItems \
  707.           [menu::buildHierarchy $MfmodeVars(pathToSourceFolder) "sourceFiles" \
  708.           Mf::sourceFilesProc mfPaths ".mf" $MfmodeVars(nestingDepth)]
  709.         regexp {^Menu -m -n sourceFiles -p Mf::sourceFilesProc \{(.*)$} $mfSubmenuItems "" reste
  710.         regsub -all "(Menu -m -n\[ \]+(\{)?)" $reste "\\1$mfsymb" reste
  711.         set mfSubmenuItems "Menu -m -n sourceFiles -p Mf::sourceFilesProc \{{Rebuild Source List} {(-} $reste"
  712.     }
  713.     } else {
  714.     set mfSubmenuItems $defaultSubmenuItems
  715.     }
  716.     if {$MfmodeVars(pathToSourceFolder) == ""} {
  717.     Mf::listSrcInDir [file dirname [win::Current]] mf
  718.     } else {
  719.     Mf::listSrcInDir $MfmodeVars(pathToSourceFolder) mf
  720.     }
  721.     return $mfSubmenuItems
  722. }
  723.  
  724. menu::buildSome mfMenu 
  725.  
  726. markMenuItem metafontMode proof 1
  727.  
  728.  
  729. ################################################################
  730. #                Main Menus and Submenus procs                 #
  731. ################################################################
  732.  
  733. proc Mf::menuProc {menu item} {
  734.     global MFfullfilename MFdirfilename MFtailfilename #
  735.     global MFbasefilename MFextfilename MFoutputfolder #
  736.     global MfmodeVars useWorkFold MfworkFolder
  737.     global cmdline name
  738.     switch $item {
  739.         "switchToMetafont" {app::launchFore $MfmodeVars(mfAppSig)}
  740.         "runTheBuffer" {
  741.             Mf::setnames [win::Current]
  742.             Mf::checkdirty
  743.             Mf::runbufferProc}
  744.         "saveAndRun" {
  745.             save
  746.             Mf::setnames [win::Current]
  747.             Mf::runbufferProc
  748.             }
  749.         "runAFile" {
  750.             catch {getfile "Select a \".mf\" file to process"}  name
  751.             Mf::setnames $name
  752.             edit $MFfullfilename
  753.             if {[file exists $MFfullfilename]} {
  754.                 Mf::runbufferProc
  755.                 }
  756.             }
  757.         "runAFolder" {Mf::runafolderProc}
  758.         "runCurrentFolder"   {Mf::runcurrfoldProc}
  759.         "newFontTemplate" {Mf::newtemplateProc}
  760.     }
  761. }
  762.  
  763. proc Mf::otherfilesProc {submenu item} {
  764.     global MFfullfilename MFdirfilename MFtailfilename #
  765.     global MFbasefilename MFextfilename MFoutputfolder #
  766.     global MfmodeVars MfworkFolder mfAppSig gffile MFcurrentdir
  767.     global Mffolderpath tfmfile vplfile mfwd
  768.     global prefixplf prefixdvi prefixrmall
  769.     global tileLeft tileTop tileWidth errorHeight fromfolder
  770.     
  771.     switch -regexp $item {
  772.     "openplain.mf" {Mf::openplainmfProc}
  773.     "openmodes.mf" {Mf::openmodesmfProc}
  774.     "convertGfToPk"  {
  775.         Mf::setnames [win::Current]
  776.         Mf::findgfFile
  777.         Mf::dopkProc
  778.     }
  779.     "convertGfToDvi"  {
  780.         Mf::setnames [win::Current]
  781.         Mf::findgfFile
  782.         Mf::dodviProc
  783.         set prefixdvi ""
  784.         menu::buildSome otherFiles
  785.     }
  786.     "convert.*\.dvi" {
  787.         Mf::setnames [win::Current]
  788.         Mf::dviToPsProc
  789.         }
  790.     "view.*\.dvi"  {
  791.         Mf::setnames [win::Current]
  792.         Mf::viewdviProc
  793.     }
  794.     "convert.*\.tfm"  {
  795.         Mf::setnames [win::Current]
  796.         Mf::doplProc
  797.         set prefixplf ""
  798.         menu::buildSome otherFiles
  799.         Mf::editplProc
  800.     }
  801.     "tfmToPlAFolder..." {Mf::tftoplafolderProc}
  802.     "tfmToPlCurrentFolder" {Mf::tftoplcurrfoldProc}
  803.     "tfmToPl..." {
  804.         catch {getfile "Select a tfm file"}  tfmfile
  805.         if {$tfmfile == ""} {
  806.         return
  807.         } else {
  808.         Mf::setnames $tfmfile
  809.         Mf::doplProc
  810.         edit -r [file join $MFdirfilename $MFbasefilename.plf]
  811.         }
  812.     }
  813.     "vpToVfAFolder..."  {Mf::vptovfafolderProc}
  814.     "vpToVfCurrentFolder"  {Mf::vptovfcurrfoldProc}
  815.     "vpToVf..." {
  816.         catch {getfile "Select a vpl file"}  vplfile
  817.         if {$vplfile == ""} {
  818.         return
  819.         } else {
  820.         edit -r "$vplfile"
  821.         Mf::setnames $vplfile
  822.         Mf::dovplProc
  823.         }    
  824.     }
  825.     "open.*\.log$" {
  826.         Mf::setnames [win::Current]
  827.         Mf::editlogProc
  828.     }
  829.     "openPropertyList" {
  830.         Mf::setnames [win::Current]
  831.         Mf::editplProc
  832.     }
  833.     "openAllLogFiles" {Mf::allAuxfilesProc log}
  834.     "openAllPropertyLists" {
  835.         Mf::allAuxfilesProc plf
  836.         Mf::allAuxfilesProc pl
  837.     }
  838.     "chooseAFolder..."  {
  839.         catch {get_directory -p "Select a folder."} MFcurrentdir
  840.         if {$MFcurrentdir == ""} { return }
  841.         set prefixrmall ""
  842.         set fromfolder ""
  843.         set Mffolderpath $MFcurrentdir
  844.         menu::buildSome otherFiles
  845.     }
  846.     "currentFolderIs:"  {
  847.         alertnote "Current folder is: $MFcurrentdir"
  848.     }
  849.     "metafontBindings" {
  850.         set mess "KEY BINDINGS AVAILABLE IN METAFONT MODE\n\n"
  851.         append mess "Press 'ctrl-m', release, then hit one of the following letters :\n"
  852.         append mess "  'b'    to process the <b>uffer\n"
  853.         append mess "  'c'    to edit the macro <c>ommands file 'plain.mf'\n"
  854.         append mess "  'd'    to process a <d>irectory\n"
  855.         append mess "  'f'    to process a <f>ile\n"
  856.         append mess "  'g'    to edit the lo<g> file\n"
  857.         append mess "  'i'    to convert gf file to dv<i>\n"
  858.         append mess "  'k'    to convert gf file to p<k>\n"
  859.         append mess "  'l'    to select <l>ocalfont mode\n"
  860.         append mess "  'm'    to edit the <m>odes file 'modes.mf'\n"
  861.         append mess "  'n'    to create a <n>ew font template\n"
  862.         append mess "  'p'    to select <p>roof mode\n"
  863.         append mess "  's'    to select <s>moke mode\n"
  864.         append mess "  't'    to convert <t>fm file to pl\n"
  865.         append mess "  'u'    to select <u>ser defined mode\n"
  866.         append mess "  'v'    to <v>iew the d<v>i\n"
  867.         new -g $tileLeft $tileTop $tileWidth [expr $errorHeight + 60] -n "* Metafont Bindings *" -info $mess
  868.         set start [minPos]
  869.         while {![catch {search -f 1 -s -r 1 {('|<)[a-z-]+('|>)} $start} res]} {
  870.         insertColorEscape [lindex $res 0] 1
  871.         insertColorEscape [lindex $res 1] 0    
  872.         set start [lindex $res 1]
  873.         }
  874.         insertColorEscape 0 5
  875.         insertColorEscape [nextLineStart 0] 0
  876.         refresh
  877.         }
  878.     }
  879. }
  880.  
  881. # Here is a proc to dimm/undimm the items of the OtherFiles submenu
  882. # depending on the existence of auxiliary files
  883. proc Mf::rebuildOtherfiles {name} {
  884.     global MFfullfilename MFdirfilename MFtailfilename #
  885.     global MFbasefilename MFextfilename MFoutputfolder #
  886.     global mfMenu otherFiles
  887.     global MfmodeVars MfworkFolder mfAppSig
  888.     global prefixgf prefixdvi prefixlog prefixtfm prefixplf
  889.     Mf::setnames [win::Current]
  890.     if {![regexp ".mf" $MFtailfilename] && ![regexp ".plf" $MFtailfilename]} {
  891.     set prefixgf "("
  892.     set prefixdvi "("
  893.     set prefixlog "("
  894.     set prefixtfm "("
  895.     set prefixplf "("
  896.     } else {
  897.     if {[file exists [file join $MFoutputfolder $MFbasefilename.log]]} {
  898.         set prefixgf ""
  899.         set prefixlog ""
  900.     } else {
  901.         set prefixgf "("
  902.         set prefixlog "("
  903.     }
  904.     if {[file exists [file join $MFoutputfolder $MFbasefilename.dvi]]} {
  905.         set prefixdvi ""
  906.     } else {
  907.         set prefixdvi "("
  908.     }
  909.     if {[file exists [file join $MFoutputfolder $MFbasefilename.tfm]]} {
  910.         set prefixtfm ""
  911.     } else {
  912.         set prefixtfm "("
  913.     }
  914.     if {[file exists [file join $MFoutputfolder $MFbasefilename.plf]] \
  915.       || [file exists [file join $MFoutputfolder $MFbasefilename.pl]]} {
  916.         set prefixplf ""
  917.     } else {
  918.         set prefixplf "("
  919.     }
  920.     }
  921.     menu::buildSome otherFiles
  922. }
  923.  
  924. # Choosing Metafont printer mode
  925. proc Mf::choosemodeProc {menu item} {
  926.     global MfmodeVars mfModeForPrinter chosenMode
  927.     global proof smoke localfont userDefined
  928.     switch $item {
  929.     "proof" {
  930.         set chosenMode proof
  931.         Mf::choosemodeMark proof
  932.         Mf::dimmOtherfiles
  933.         message "mode proof - no tfm produced"
  934.     }
  935.     "smoke" {
  936.         set chosenMode smoke
  937.         Mf::choosemodeMark smoke
  938.         Mf::dimmOtherfiles
  939.         message "mode smoke - no tfm produced"
  940.     }
  941.     "localfont" {
  942.         set chosenMode localfont
  943.         Mf::choosemodeMark localfont
  944.         Mf::undimmOtherfiles
  945.         message "mode localfont"
  946.     }
  947.     "userDefined" {
  948.         set chosenMode $MfmodeVars(mfModeForPrinter)
  949.         Mf::choosemodeMark userDefined
  950.         Mf::undimmOtherfiles
  951.         message "mode \"$MfmodeVars(mfModeForPrinter)\""
  952.         alertnote "Current user defined mode is \"$MfmodeVars(mfModeForPrinter)\". You can change this in the Current Mode Prefs."
  953.     }
  954.     }
  955. }
  956.  
  957. proc Mf::choosemodeMark {var} {
  958.     Mf::clearAllModes
  959.     markMenuItem metafontMode $var 1
  960. }
  961.  
  962. proc Mf::clearAllModes {} {
  963.     global proof smoke localfont userDefined
  964.     foreach i {"proof" "smoke" "localfont" "userDefined"} {
  965.     markMenuItem metafontMode $i 0
  966.     } 
  967. }
  968.  
  969.  
  970. # Choosing Metafont processing Options
  971. proc Mf::processingoptProc {menu item} {
  972.     global mag magstep magflag magstepflag Mfbasefileflag
  973.     global MfmodeVars Mfbasefile
  974.     switch $item {    
  975.     "mag..." {
  976.         catch {prompt "Choose a magnification" $mag} res
  977.         if {$res == "cancel"} {return}
  978.         if {$res == 1} {
  979.         set magflag 0
  980.         set mag $res
  981.         markMenuItem processingOptions "mag..." $magflag
  982.         } else {
  983.         set magstep 0
  984.         set magstepflag 0
  985.         set magflag 1
  986.         set mag $res
  987.         markMenuItem processingOptions "mag..." $magflag
  988.         markMenuItem processingOptions "magstep..." $magstepflag
  989.         }
  990.     }
  991.     "magstep..." {
  992.         catch {prompt "Choose a magstep coefficient " $magstep} res
  993.         if {$res == "cancel"} {return}
  994.         if {$res == 0} {
  995.         set magstepflag 0
  996.         set magstep $res
  997.         markMenuItem processingOptions "magstep..." $magstepflag
  998.         } else {
  999.         set mag 1
  1000.         set magflag 0
  1001.         set magstepflag 1
  1002.         set magstep $res
  1003.         markMenuItem processingOptions "mag..." $magflag
  1004.         markMenuItem processingOptions "magstep..." $magstepflag
  1005.         }
  1006.     }
  1007.     "baseFile..." {
  1008.         catch {getfile "Select a base file"} Mfbasefilepath
  1009.         set Mfbasefile [file tail $Mfbasefilepath] 
  1010.         set Mfbasefileflag 1
  1011.         markMenuItem processingOptions "baseFile..." $Mfbasefileflag
  1012.     }
  1013.     "gfcorners" {Mf::Toggle gfcorners}
  1014.     "imagerules" {Mf::Toggle imagerules}
  1015.     "nodisplays" {Mf::Toggle nodisplays}
  1016.     "notransforms" {Mf::Toggle notransforms}
  1017.     "screenchars" {Mf::Toggle screenchars}
  1018.     "screenstrokes" {Mf::Toggle screenstrokes}
  1019.     "clearAllOptions" {Mf::clearAllOptionsProc}
  1020.     }    
  1021. }
  1022.  
  1023. proc Mf::Toggle {var} {
  1024.     global $var
  1025.     set $var [expr {[set $var] ? 0 : 1}]
  1026.     synchroniseModeVar $var
  1027.     Mf::shadowMf $var
  1028. }
  1029.  
  1030. proc Mf::shadowMf {name} {
  1031.     global gfcorners imagerules nodisplays
  1032.     global notransforms screenchars screenstrokes
  1033.     switch $name {
  1034.     "gfcorners"    {
  1035.         markMenuItem processingOptions gfcorners $gfcorners
  1036.     }
  1037.     "imagerules"    {
  1038.         markMenuItem processingOptions imagerules $imagerules
  1039.     }
  1040.     "nodisplays"    {
  1041.         markMenuItem processingOptions nodisplays $nodisplays
  1042.     }
  1043.     "notransforms"    {
  1044.         markMenuItem processingOptions notransforms $notransforms
  1045.     }
  1046.     "screenchars"    {
  1047.         markMenuItem processingOptions screenchars $screenchars
  1048.     }
  1049.     "screenstrokes"    {
  1050.         markMenuItem processingOptions screenstrokes $screenstrokes
  1051.     }
  1052.     }
  1053. }
  1054.  
  1055. proc Mf::shadowList {name} {
  1056.     global SourceFiles MfmodeVars pathToSourceFolder buildSourceFiles mfSubmenuItems nestingDepth
  1057.         set mfSubmenuItems ""
  1058.         menu::buildSome sourceFiles
  1059. }
  1060.  
  1061. proc Mf::clearAllOptionsProc {} {
  1062.     global gfcorners imagerules nodisplays
  1063.     global notransforms screenchars screenstrokes
  1064.     global mag magflag magstep magstepflag Mfbasefile Mfbasefileflag
  1065.     foreach i {"gfcorners" "imagerules" "nodisplays" "notransforms" "screenchars" "screenstrokes"} {
  1066.     set $i 0
  1067.     Mf::shadowMf $i
  1068.     }
  1069.     set mag 1
  1070.     set magflag 0
  1071.     set magstep 0
  1072.     set magstepflag 0
  1073.     set Mfbasefileflag 0
  1074.     set Mfbasefile ""
  1075.     markMenuItem processingOptions "baseFile..." $Mfbasefileflag
  1076.     markMenuItem processingOptions "mag..." $magflag
  1077.     markMenuItem processingOptions "magstep..." $magstepflag
  1078. }
  1079.  
  1080. proc Mf::dimmOtherfiles {} {
  1081.     enableMenuItem otherFiles "convertTfmToPl" 0
  1082.     enableMenuItem otherFiles "openPropertyList" 0
  1083. }
  1084.  
  1085. proc Mf::undimmOtherfiles {} {
  1086.     enableMenuItem otherFiles "convertTfmToPl" 1
  1087.     enableMenuItem otherFiles "openPropertyList" 1
  1088. }
  1089.  
  1090. proc Mf::removefilesProc {menu item} {
  1091.     global MfmodeVars mfAppSig MFcurrentdir prefixrmall fromfolder Mffolderpath
  1092.     switch $item {    
  1093.     "allLogFiles"  {Mf::deleteallfilesProc log}
  1094.     "allGfFiles"  {Mf::deleteallfilesProc gf}
  1095.     "allPkFiles"  {Mf::deleteallfilesProc pk}
  1096.     "allDviFiles" {Mf::deleteallfilesProc dvi}
  1097.     "allTfmFiles" {Mf::deleteallfilesProc tfm}
  1098.     "allVfFiles" {Mf::deleteallfilesProc vf}
  1099.     "allPlFiles" {Mf::deleteallfilesProc plf}
  1100.     "allVplFiles" {Mf::deleteallfilesProc vpl}
  1101.     "allOfThem" {
  1102.         foreach ext {"log" "gf" "pk" "dvi" "tfm" "vf" "plf" "vpl"} {
  1103.         Mf::deleteallfilesProc $ext
  1104.         }
  1105.     }
  1106.     }
  1107.     Mf::rebuildOtherfiles ""
  1108. }
  1109.  
  1110.  
  1111. ##################################################
  1112. #                                                #
  1113. #   Procs to process the Metafont source files   #
  1114. #                                                #
  1115. ##################################################
  1116.  
  1117. proc Mf::runbufferProc {} {
  1118.     global MFfullfilename MFdirfilename MFtailfilename #
  1119.     global MFbasefilename MFextfilename MFoutputfolder #
  1120.     global cmdline addcmdline MfmodeVars mfAppSig 
  1121.     global chosenMode resol    
  1122.     if {[string length $MfmodeVars(mfAppSig)]} {
  1123.     app::launchFore "$MfmodeVars(mfAppSig)"
  1124.     switch $MfmodeVars(mfAppSig) {
  1125.         "CMT3" {     
  1126.         Mf::buildCMTcmdLine
  1127.         Mf::doMfscript
  1128.         }
  1129.         "OzMF" {
  1130.         if {$chosenMode == "proof"} {
  1131.             Mf::doMfscript
  1132.             Mf::updateprefixes
  1133.         } else {
  1134.             set resol "[Mf::findmoderes]"
  1135.             Mf::buildOZmakeLine
  1136.             Mf::createmakefile
  1137.             Mf::runmakefile
  1138.             Mf::updateprefixes
  1139.         }
  1140.         }
  1141.     }
  1142.     menu::buildSome otherFiles
  1143.     } else {
  1144.     alertnote "No Mf app. selected. Select it in the Current mode preferences."
  1145.     }
  1146. }
  1147.  
  1148. proc Mf::runafolderProc {} {
  1149.     global MFfullfilename MFdirfilename MFtailfilename #
  1150.     global MFbasefilename MFextfilename MFoutputfolder #
  1151.     global cmdline MfmodeVars mfAppSig MFcurrentdir
  1152.     global chosenMode resol prefixrmall
  1153.     global filesindir ext MfworkFolder Mffolderpath fromfolder
  1154.     
  1155.     catch {get_directory -p "Select a folder."} Mffolderpath
  1156.     set MFcurrentdir $Mffolderpath
  1157.     if {$Mffolderpath == ""} { return }
  1158.     set prefixrmall ""
  1159.     set ext ".mf"
  1160.     set filesindir [glob -nocomplain -dir [file join $Mffolderpath] *$ext]
  1161.     if {[llength $filesindir] == 0} {
  1162.     alertnote "No \"$ext\" file in this folder."
  1163.     return
  1164.     } 
  1165.     if {[string length $MfmodeVars(mfAppSig)]} {
  1166.     switch $MfmodeVars(mfAppSig) {
  1167.         "CMT3" {Mf::domaketexpk}
  1168.         "OzMF" {Mf::domaketexpk}
  1169.     }
  1170.     set fromfolder ""
  1171.     menu::buildSome otherFiles
  1172.     } else {
  1173.     alertnote "No Mf app. selected. Select it in the Current mode preferences."
  1174.     }                    
  1175. }    
  1176.  
  1177. proc Mf::runcurrfoldProc {} {
  1178.     global MFfullfilename MFdirfilename MFtailfilename #
  1179.     global MFbasefilename MFextfilename MFoutputfolder #
  1180.     global cmdline MfmodeVars mfAppSig MFcurrentdir
  1181.     global chosenMode resol prefixrmall
  1182.     global filesindir ext MfworkFolder Mffolderpath fromfolder
  1183.     if {$MFcurrentdir == ""}  {
  1184.     alertnote "No folder currently selected"
  1185.     return
  1186.     }
  1187.     set prefixrmall ""
  1188.     set ext ".mf"
  1189.     set Mffolderpath:  $MFcurrentdir
  1190.     set filesindir [glob -nocomplain -dir [file join $Mffolderpath] *$ext]
  1191.     if {[llength $filesindir] == 0} {
  1192.     alertnote "No \"$ext\" file in this folder."
  1193.     return 
  1194.     } 
  1195.     if {[string length $MfmodeVars(mfAppSig)]} {
  1196.     switch $MfmodeVars(mfAppSig) {
  1197.         "CMT3" {Mf::domaketexpk}
  1198.         "OzMF" {Mf::domaketexpk}
  1199.     }
  1200.     set fromfolder ""
  1201.     menu::buildSome otherFiles
  1202.     } else {
  1203.     alertnote "No Mf app. selected. Select it in the Current mode preferences."
  1204.     }                    
  1205. }    
  1206.     
  1207. proc Mf::domaketexpk {} {
  1208.     global MFfullfilename MFdirfilename MFtailfilename #
  1209.     global MFbasefilename MFextfilename MFoutputfolder #
  1210.     global cmdline MfmodeVars mfAppSig
  1211.     global chosenMode resol
  1212.     global filesindir ext MfworkFolder Mffolderpath fromfolder
  1213.     if {[file exists [file join $Mffolderpath tmpall.make]]} {
  1214.     file delete [file join $Mffolderpath tmpall.make]
  1215.     }
  1216.     switch [buttonAlert "OK to process all \"$ext\" files from $Mffolderpath ?" "yes" "cancel" ] {
  1217.     "yes" {
  1218.         set fileId [open [file join $Mffolderpath tmpall.make] a+] 
  1219.         set resol  "[Mf::findmoderes]"
  1220.         message "$resol"
  1221.         foreach file $filesindir {
  1222.         # We open each file because in the case when no mf file is open
  1223.         # we get problems with unrecognized MfmodeVars values
  1224.         edit -w $file
  1225.         set MFfullfilename $file
  1226.         set MFtailfilename [file tail $file]
  1227.         Mf::buildOZmakeLine
  1228.         # message "$cmdline"
  1229.         puts $fileId $cmdline
  1230.         }
  1231.         close $fileId
  1232.         Mf::runmakeallfile
  1233.     }
  1234.     "cancel" {
  1235.         app::launchFore "ALFA"
  1236.         return 
  1237.     }
  1238.     }
  1239. }
  1240.  
  1241. proc Mf::checkdirty {} {
  1242.     if {[winDirty]} {
  1243.     case [askyesno -c "Dirty window '[lindex [winNames] 0]'. Do you want to save it ?"] in {
  1244.         "yes" {save}
  1245.         "no" {}
  1246.         "cancel" {return}
  1247.     }
  1248.     }
  1249. }
  1250.  
  1251.  
  1252. #################################
  1253. #                               #
  1254. #   Scripts and Command Lines   #
  1255. #                               #
  1256. #################################
  1257.  
  1258. proc Mf::buildCMTcmdLine {} {
  1259.     global MFfullfilename MFdirfilename MFtailfilename #
  1260.     global MFbasefilename MFextfilename MFoutputfolder #
  1261.     global cmdline MfmodeVars chosenMode mfModeForPrinter MfworkFolder useWorkFold
  1262.     global proof smoke localfont userDefined script
  1263.     global gfcorners imagerules nodisplays
  1264.     global notransforms screenchars screenstrokes
  1265.     global mag magstep magflag magstepflag Mfbasefile Mfbasefileflag
  1266.     set cmdline "mf "
  1267.     #    choosing the mode
  1268.     if {$chosenMode != "proof"} {
  1269.     if {$chosenMode == "smoke" || $chosenMode == "localfont"} {
  1270.         append cmdline "\\mode=$chosenMode; "
  1271.     } else {
  1272.         append cmdline "\\mode=$MfmodeVars(mfModeForPrinter);"
  1273.     }
  1274.     } else {
  1275.     append cmdline "\\ "
  1276.     }
  1277.     #   Do we magnify ?
  1278.     if {$magflag == 1} {
  1279.     append cmdline "mag=$mag; "
  1280.     } elseif {$magstepflag == 1} {
  1281.     append cmdline "mag=magstep\($magstep\); "
  1282.     }
  1283.     #    Add the (optional!) options if the corresponding flag is set
  1284.     if {$screenchars} {append cmdline "screenchars; "}
  1285.     if {$screenstrokes} {
  1286.     if {$chosenMode != "proof"} {
  1287.         alertnote "The \"screenstrokes\" option is for proof mode only. I'll ignore it."
  1288.         Mf::Toggle screenstrokes
  1289.         Mf::shadowMf screenstrokes
  1290.     } else {
  1291.         append cmdline "screenstrokes; "
  1292.     }
  1293.     }
  1294.     if {$imagerules} {
  1295.     append cmdline "imagerules; "
  1296.     }
  1297.     if {$gfcorners} {
  1298.     append cmdline "gfcorners; "
  1299.     }
  1300.     if {$nodisplays} {
  1301.     if {$chosenMode != "proof"} {
  1302.         alertnote "The \"nodisplays\" option is for proof mode only. I'll ignore it."
  1303.     } elseif {$screenchars || $screenstrokes} {
  1304.         beep 
  1305.         alertnote "Contradictory options : you can't use \"nodisplays\" with \"screenchars\" or \"screenstrokes\". I'll ignore it."
  1306.         Mf::Toggle nodisplays
  1307.         Mf::shadowMf nodisplays
  1308.     } else {
  1309.         append cmdline "nodisplays; "
  1310.     }
  1311.     }
  1312.     if {$notransforms} {
  1313.     append cmdline "notransforms; "
  1314.     }
  1315.     #    Input a base file if any
  1316.     if {$Mfbasefileflag == 1} {
  1317.     append cmdline "input $Mfbasefile;"
  1318.     }
  1319.     append cmdline "input $MFtailfilename;"
  1320.     #   Now the file to process. Since version 2.2.1 of CMaCTeX Metafont there is a new syntax 
  1321.     #     for the Apple event : the destination folder is included in the script line
  1322.     #     and introduced by -@
  1323. #     if {[lindex [Mf::getMfVersion] 1] > 2.2} {
  1324. #     append cmdline " -@ [set MFoutputfolder]:"
  1325. #     }
  1326.     set cmdline [curlyq $cmdline]
  1327.     #     Finally we update prefixes to rebuild accordingly the Other Files submenu
  1328.     Mf::updateprefixes
  1329. }
  1330.  
  1331. # OzMetafont cannot receive a complete command line through an Apple Event. 
  1332. # The workaround is to create a ".make" file which OzMetafont will process 
  1333. # with its built-in MakeTeXPK.
  1334. #         (Good) side effect : the "pk" files will be done in the same time,
  1335. #         thus no need to invoke gftopk after that.
  1336. proc Mf::buildOZmakeLine {} {
  1337.     global cmdline MFfullfilename MFtailfilename MfmodeVars chosenMode
  1338.     global proof smoke localfont userDefined script resol mfModeForPrinter
  1339.     global gfcorners imagerules nodisplays
  1340.     global notransforms screenchars screenstrokes
  1341.     global mag magstep magflag magstepflag Mfbasefile Mfbasefileflag
  1342.     set cmdline "MakeTeXPK [file rootname $MFtailfilename] "
  1343.     # What is the resolution corresponding to the printer mode ? We look for it in the
  1344.     # modes.mf file.
  1345.     append cmdline "[lindex $resol 1] [lindex $resol 1] "
  1346.     #   Do we magnify ?
  1347.     if {$magflag == 1} {
  1348.     append cmdline "$mag "
  1349.     } elseif {$magstepflag == 1} {
  1350.     append cmdline "magstep\($magstep\) "
  1351.     } else {
  1352.     append cmdline "1 "
  1353.     }
  1354.     #   Choose the mode
  1355.     if {$chosenMode == "localfont"} {
  1356.     append cmdline     "[lindex $resol 0]"    
  1357.     } elseif {$chosenMode == "proof" || $chosenMode == "smoke"} {
  1358.     append cmdline "$chosenMode"
  1359.     } else {
  1360.     append cmdline $MfmodeVars(mfModeForPrinter)
  1361.     }
  1362.     #    Add the (optional!) options if the corresponding flag is set
  1363.     if {$screenchars} {append cmdline ";screenchars"}
  1364.     if {$screenstrokes} {
  1365.     if {$chosenMode != "proof"} {
  1366.         alertnote "The \"screenstrokes\" option is for proof mode only. I'll ignore it."
  1367.         Mf::Toggle screenstrokes
  1368.         Mf::shadowMf screenstrokes
  1369.     } else {
  1370.         append cmdline ";screenstrokes"
  1371.     }
  1372.     }
  1373.     if {$imagerules} {
  1374.     append cmdline ";imagerules"
  1375.     }
  1376.     if {$gfcorners} {
  1377.     append cmdline ";gfcorners"
  1378.     }
  1379.     if {$nodisplays} {
  1380.     if {$chosenMode != "proof"} {
  1381.         alertnote "The \"nodisplays\" option is for proof mode only. I'll ignore it."
  1382.     } elseif {$screenchars || $screenstrokes} {
  1383.         beep 
  1384.         alertnote "Contradictory options : you can't use \"nodisplays\" with \"screenchars\" or \"screenstrokes\". I'll ignore it."
  1385.         Mf::Toggle nodisplays
  1386.         Mf::shadowMf nodisplays
  1387.     } else {
  1388.         append cmdline ";nodisplays"
  1389.     }
  1390.     }
  1391.     if {$notransforms} {
  1392.     append cmdline ";notransforms"
  1393.     }
  1394.     #   Input a base file if any
  1395.     if {$Mfbasefileflag == 1} {
  1396.     append cmdline ";input $Mfbasefile"
  1397.     }
  1398.     #     Finally we update prefixes to rebuild the "Other Files" submenu
  1399.     Mf::updateprefixes
  1400. }
  1401.  
  1402. proc Mf::doMfscript {} {
  1403.     global cmdline MFfullfilename MFoutputfolder
  1404.     global MfmodeVars mfAppSig
  1405.     switch $MfmodeVars(mfAppSig) {
  1406.     "CMT3" {
  1407.         set name [file join $MFoutputfolder ""]
  1408.         eval "AEBuild -t 6000 'CMT3'" CMTX exec {----} [list $cmdline] dest [tclAE::build::alis $name]
  1409.     }
  1410.     "OzMF" {
  1411.         app::launchFore "OzMF"
  1412.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f $MFfullfilename
  1413.     }
  1414.     }
  1415. }
  1416.  
  1417. proc Mf::createmakefile {} {
  1418.     global MFfullfilename MFdirfilename MFtailfilename #
  1419.     global MFbasefilename MFextfilename MFoutputfolder #
  1420.     global cmdline
  1421.     set fileId [open "[file dirname $MFfullfilename]:tmp.make" w+] 
  1422.     puts $fileId $cmdline
  1423.     close $fileId
  1424. }
  1425.  
  1426. proc Mf::runmakefile {} {
  1427.     global MFfullfilename MFdirfilename MFtailfilename #
  1428.     global MFbasefilename MFextfilename MFoutputfolder #
  1429.     app::launchFore "OzMF"
  1430.     dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f [file join $MFdirfilename tmp.make]
  1431. }
  1432.  
  1433. proc Mf::runmakeallfile {} {
  1434.     global Mffolderpath MfmodeVars mfAppSig
  1435.     switch $MfmodeVars(mfAppSig) {
  1436.     "CMT3" {
  1437.         app::launchFore "CMT9"
  1438.         dosc -c 'CMT9' -k 'aevt' -e 'odoc' -t 600 -r -f [file join $Mffolderpath tmpall.make]
  1439.     }
  1440.     "OzMF" {
  1441.         app::launchFore "OzMF"
  1442.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f [file join $Mffolderpath tmpall.make]                        
  1443.     }
  1444.     }
  1445. }
  1446.  
  1447. proc Mf::updateprefixes {} {
  1448.     global prefixtfm prefixdvi prefixplf prefixgf prefixlog chosenMode
  1449.     if {$chosenMode == "proof"  || $chosenMode == "smoke"} {
  1450.     set prefixtfm "("
  1451.     } else {
  1452.     set prefixtfm ""
  1453.     }
  1454.     set prefixplf "("
  1455.     set prefixdvi "("
  1456.     set prefixgf ""
  1457.     set prefixlog ""
  1458. }
  1459.  
  1460.  
  1461. #########################################
  1462. #                                       #
  1463. #   Procs to run the related programs   #
  1464. #                                       #
  1465. #########################################
  1466.  
  1467. # This proc calls up gftopk
  1468. proc Mf::dopkProc {} {
  1469.     global MFfullfilename MFdirfilename MFtailfilename #
  1470.     global MFbasefilename MFextfilename MFoutputfolder #
  1471.     global gffile MfmodeVars MfworkFolder mfAppSig mfset 
  1472.     global mfwd Mffolderpath 
  1473.     switch $MfmodeVars(mfAppSig) {
  1474.     "CMT3" {
  1475.         if {![file exists [file join $MFoutputfolder $gffile]]} {
  1476.         alertnote "Can't find file $gffile."
  1477.         return
  1478.         }
  1479.         set pkcmdline "gftopk [file join $MFoutputfolder $gffile]"
  1480.         app::launchFore "CMTe"
  1481.         set pkcmdline [curlyq $pkcmdline]
  1482.         eval "AEBuild 'CMTe'" CMTX exec {----} [list $pkcmdline]
  1483.     }
  1484.     "OzMF" {
  1485.         if {![file exists [file join $mfwd $gffile]]} {
  1486.         alertnote "Can't find file $gffile. Check that the \"delete_gf\" flag in OzMetafont configs is set to false."
  1487.         return
  1488.         }
  1489.         app::launchFore "OzMF"
  1490.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 6000 -r -f [file join $mfwd $gffile]
  1491.     }
  1492.     }
  1493. }
  1494.  
  1495. # This proc calls up gftodvi
  1496. proc Mf::dodviProc {} {
  1497.     global MFfullfilename MFdirfilename MFtailfilename #
  1498.     global MFbasefilename MFextfilename MFoutputfolder #
  1499.     global gffile MfmodeVars MfworkFolder mfAppSig mfset 
  1500.     global mfwd Mffolderpath MFoutputfolder
  1501.     switch $MfmodeVars(mfAppSig) {
  1502.     "CMT3" {
  1503.         if {![file exists [file join $MFoutputfolder $gffile]]} {
  1504.         alertnote "Can't find file $gffile."
  1505.         return
  1506.         }
  1507.         if {[app::isRunning CMTd]} {
  1508.         sendQuitEvent 'CMTd'
  1509.         alertnote "Click to convert [file tail $gffile] to dvi."
  1510.         }
  1511.         set dvicmdline "gftodvi [file join $MFoutputfolder $gffile]"
  1512.         app::launchFore "CMTd"
  1513.         set dvicmdline [curlyq $dvicmdline]
  1514.         eval "AEBuild 'CMTd'" CMTX exec {----} [list $dvicmdline]
  1515.     }
  1516.     "OzMF" {
  1517.         if {![file exists [file join $mfwd $gffile]]} {
  1518.         alertnote "Can't find file $gffile. Check that the \"delete_gf\" flag in OzMetafont configs is set to false."
  1519.         return
  1520.         }
  1521.         app::launchFore "OzMF"
  1522.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 6000 -r -f [file join $mfwd $gffile]
  1523.     }
  1524.     }
  1525. }
  1526.  
  1527. # This proc calls up a previewer to view the dvi file produced by gftodvi.
  1528. # For CMaCTeX, it looks in the output folder, then sends the Apple Event to dvipreview :
  1529. # note : if you prefer xdvi, change the signature from PIVD to CMT8)
  1530. # for Oz, it looks in the current window's folder then sends the event to OzTeX.
  1531. proc Mf::viewdviProc {} {
  1532.     global MFfullfilename MFdirfilename MFtailfilename #
  1533.     global MFbasefilename MFextfilename MFoutputfolder #
  1534.     global gffile MfmodeVars MfworkFolder mfAppSig mfset 
  1535.     global mfwd Mffolderpath rootname 
  1536.     switch $MfmodeVars(mfAppSig) {
  1537.     "CMT3" {
  1538.         if {![file exists [file join $MFoutputfolder $MFbasefilename.dvi]]} {
  1539.         alertnote "Can't find file $MFbasefilename.dvi."
  1540.         return
  1541.         }
  1542.         app::launchFore "PIVD"
  1543.         # app::launchElseTryThese "PIVD" "CMT8"
  1544.         dosc -c 'PIVD' -k 'aevt' -e 'odoc' -r -f [file join $MFoutputfolder $MFbasefilename.dvi]
  1545.     }
  1546.     "OzMF" {
  1547.         if {![file exists [file join $MFdirfilename $MFbasefilename.dvi]]} {
  1548.         alertnote "Can't find file $MFbasefilename.dvi."
  1549.         return
  1550.         }
  1551.         app::launchFore "OTEX"
  1552.         dosc -c 'OTEX' -k 'aevt' -e 'odoc' -t 600 -r -f [file join $MFdirfilename $MFbasefilename.dvi]
  1553.     }
  1554.     }
  1555. }
  1556.  
  1557. # This proc calls up CMacTeX dvips
  1558. proc Mf::dviToPsProc {} {
  1559.     global MFfullfilename MFdirfilename MFtailfilename #
  1560.     global MFbasefilename MFextfilename MFoutputfolder #
  1561.     if {![file exists [file join $MFoutputfolder $MFbasefilename.dvi]]} {
  1562.     alertnote "Can't find file $MFbasefilename.dvi."
  1563.     return
  1564.     }
  1565.     app::launchFore "CMT1"
  1566.     dosc -c 'CMT1' -k 'aevt' -e 'odoc' -r -f [file join $MFoutputfolder $MFbasefilename.dvi]   
  1567. }
  1568.  
  1569.  
  1570. # This proc calls up tftopl
  1571. proc Mf::doplProc {} {
  1572.     global MFfullfilename MFdirfilename MFtailfilename #
  1573.     global MFbasefilename MFextfilename MFoutputfolder #
  1574.     global rootname MfmodeVars MfworkFolder mfAppSig tfmfile mfset 
  1575.     global mfwd Mffolderpath MFoutputfolder
  1576.     switch $MfmodeVars(mfAppSig) {
  1577.     "CMT3" {     
  1578.         if {[app::isRunning CMTk]} {
  1579.         sendQuitEvent 'CMTk'
  1580.         alertnote "Click to proceed."
  1581.         }
  1582.         if {$mfset} {
  1583.         set mfwd $Mffolderpath
  1584.         } else {set mfwd $MFoutputfolder}
  1585.         if {$tfmfile != ""} {
  1586.         set plcmdline "tftopl [file join $MFdirfilename $MFbasefilename.tfm] [file join $MFdirfilename $MFbasefilename.plf]"
  1587.         set tfmfile ""
  1588.         } else {
  1589.         if {![file exists [file join $mfwd $MFbasefilename.tfm]]} {
  1590.             alertnote "Can't find file $MFbasefilename.tfm. Check your mode (no tfm in proof or smoke modes)."
  1591.             return
  1592.         }
  1593.         set plcmdline "tftopl [file join $mfwd $MFbasefilename.tfm] [file join $mfwd $MFbasefilename.plf]"
  1594.         }
  1595.         app::launchFore "CMTk"
  1596.         set plcmdline [curlyq $plcmdline]
  1597.         eval "AEBuild -r 'CMTk'" CMTX exec {----} [list $plcmdline]
  1598.     }
  1599.     "OzMF" {
  1600.         if {[app::isRunning OzMF]} {
  1601.         sendQuitEvent 'OzMF'
  1602.         alertnote "Click to proceed."
  1603.         }
  1604.         if {$mfset} {
  1605.         set mfwd $Mffolderpath
  1606.         } else {set mfwd $MFdirfilename}
  1607.         if {![file exists [file join $mfwd $MFbasefilename.tfm]]} {
  1608.         alertnote "Can't find file $MFbasefilename.tfm. Check that the \"delete_tfm\" flag in OzMetafont configs is set to false."
  1609.         return
  1610.         }
  1611.         app::launchFore "OzMF"
  1612.         if {$tfmfile != ""} {
  1613.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f $tfmfile                
  1614.         set tfmfile ""
  1615.         } else {
  1616.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f [file join $mfwd $MFbasefilename.tfm]
  1617.         }
  1618.     }
  1619.     }
  1620. }
  1621.  
  1622. proc Mf::editlogProc {}  {
  1623.     global MFfullfilename MFdirfilename MFtailfilename #
  1624.     global MFbasefilename MFextfilename MFoutputfolder #
  1625.     global MfmodeVars MfworkFolder mfAppSig gffile
  1626.     global tfmfile vplfile mfwd prefixplf prefixdvi
  1627.     
  1628.     switch $MfmodeVars(mfAppSig) {
  1629.     "CMT3" {     
  1630.         if {![file exists [file join $MFoutputfolder $MFbasefilename.log]]} {
  1631.         alertnote "Can't find file $MFbasefilename.log."
  1632.         return
  1633.         } else {
  1634.         edit -r [file join $MFoutputfolder $MFbasefilename.log]
  1635.         }
  1636.     }
  1637.     "OzMF" {
  1638.         if {![file exists [file join $MFdirfilename $MFbasefilename.log]]} {
  1639.         alertnote "Can't find file $MFbasefilename.log. Check that the \"delete_log\" flag in OzMetafont configs is set to false."
  1640.         return
  1641.         } else {
  1642.         edit -r [file join $MFdirfilename $MFbasefilename.log]
  1643.         }
  1644.     }
  1645.     }
  1646. }
  1647.  
  1648. proc Mf::editplProc {} {
  1649.     global MFfullfilename MFdirfilename MFtailfilename #
  1650.     global MFbasefilename MFextfilename MFoutputfolder #
  1651.     global rootname MfmodeVars MfworkFolder mfAppSig 
  1652.     global mfwd tfmfile MFoutputfolder
  1653.     switch $MfmodeVars(mfAppSig) {
  1654.     "CMT3" {     
  1655.         if {[file exists [file join $MFoutputfolder $MFbasefilename.plf]]} {
  1656.         edit -r [file join $MFoutputfolder $MFbasefilename.plf]
  1657.         }
  1658.     }
  1659.     "OzMF" {
  1660.         if {$tfmfile != ""} {
  1661.         if {[file exists [file join [file dirname $tfmfile] [file rootname [file tail $tfmfile]].pl]]} {
  1662.             edit -r [file join [file dirname $tfmfile] [file rootname [file tail $tfmfile]].pl]
  1663.         } else {
  1664.             alertnote "Can't find [file rootname [file tail $tfmfile]].pl"
  1665.         }
  1666.         } else {
  1667.         if {[file exists [file join $MFdirfilename $MFbasefilename.pl]]} {
  1668.             edit -r [file join $MFdirfilename $MFbasefilename.pl]
  1669.         } else {
  1670.             alertnote "Can't find $MFbasefilename.pl in $MFdirfilename."
  1671.         }
  1672.         }
  1673.     }
  1674.     }
  1675.     set prefixplf ""
  1676.     menu::buildSome otherFiles
  1677. }
  1678.  
  1679. proc Mf::dovplProc {} {
  1680.     global MFfullfilename MFdirfilename MFtailfilename #
  1681.     global MFbasefilename MFextfilename MFoutputfolder #
  1682.     global rootname MfmodeVars MfworkFolder mfAppSig vplfile mfset 
  1683.     global mfwd Mffolderpath MFoutputfolder
  1684.     switch $MfmodeVars(mfAppSig) {
  1685.     "CMT3" {     
  1686.         if {[app::isRunning CMTm]} {
  1687.         sendQuitEvent 'CMTm'
  1688.         alertnote "Click to proceed."
  1689.         }
  1690.         if {$mfset} {
  1691.         set mfwd $Mffolderpath
  1692.         } else {set mfwd $MFoutputfolder}
  1693.         if {$vplfile != ""} {
  1694.         set plcmdline "vptovf [file join $MFdirfilename $MFbasefilename.vpl] [file join $MFdirfilename $MFbasefilename.vf] [file join $MFdirfilename $MFbasefilename.tfm]"
  1695.         set vplfile ""
  1696.         } else {
  1697.         if {![file exists [file join $mfwd $MFbasefilename.vpl]]} {
  1698.             alertnote "Can't find file $MFbasefilename.vpl."
  1699.             return
  1700.         }
  1701.         set plcmdline "tftopl [file join $mfwd $MFbasefilename.vpl] [file join $mfwd $MFbasefilename.vf] [file join $mfwd $MFbasefilename.tfm]"
  1702.         }
  1703.         app::launchFore "CMTm"
  1704.         set plcmdline [curlyq $plcmdline]
  1705.         eval "AEBuild -r 'CMTm'" CMTX exec {----} [list $plcmdline]
  1706.     }
  1707.     "OzMF" {
  1708.         if {[app::isRunning OzMF]} {
  1709.         sendQuitEvent 'OzMF'
  1710.         alertnote "Click to proceed."
  1711.         }
  1712.         if {$mfset} {
  1713.         set mfwd $Mffolderpath
  1714.         } else {set mfwd $MFdirfilename}
  1715.         if {![file exists [file join $mfwd $MFbasefilename.vpl]]} {
  1716.         alertnote "Can't find file $MFbasefilename.vpl."
  1717.         return
  1718.         }
  1719.         app::launchFore "OzMF"
  1720.         if {$vplfile != ""} {
  1721.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f $vplfile                
  1722.         set vplfile ""
  1723.         } else {
  1724.         dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f [file join $mfwd $MFbasefilename.vpl]
  1725.         app::launchFore "ALFA"
  1726.         }
  1727.     }
  1728.     }
  1729. }
  1730.  
  1731. proc Mf::tftoplafolderProc {} {
  1732.     global MFfullfilename MFdirfilename MFtailfilename #
  1733.     global MFbasefilename MFextfilename MFoutputfolder #
  1734.     global MfmodeVars mfAppSig MFcurrentdir
  1735.     global filesindir ext Mffolderpath mfset
  1736.     catch {get_directory -p "Select a folder."} Mffolderpath
  1737.     if {$Mffolderpath == ""} { return }
  1738.     set MFcurrentdir $Mffolderpath
  1739.     Mf::tftoplallProc
  1740. }
  1741.  
  1742. proc Mf::tftoplcurrfoldProc {} {
  1743.     global MFfullfilename MFdirfilename MFtailfilename #
  1744.     global MFbasefilename MFextfilename MFoutputfolder #
  1745.     global MfmodeVars mfAppSig MFcurrentdir
  1746.     global filesindir ext Mffolderpath mfset
  1747.     if {$MFcurrentdir == ""}  {alertnote "No folder currently selected"
  1748.     return}
  1749.     set prefixrmall ""
  1750.     set Mffolderpath $MFcurrentdir
  1751.     Mf::tftoplallProc
  1752. }
  1753.  
  1754. proc Mf::tftoplallProc {} {
  1755.     global MFfullfilename MFdirfilename MFtailfilename #
  1756.     global MFbasefilename MFextfilename MFoutputfolder #
  1757.     global MfmodeVars mfAppSig MFcurrentdir
  1758.     global filesindir ext Mffolderpath mfset
  1759.     set ext ".tfm"
  1760.     set mfset 1
  1761.     set filesindir [glob -nocomplain -dir [file join $Mffolderpath] *$ext]
  1762.     if {[llength $filesindir] == 0} {
  1763.     alertnote "No \"$ext\" file in this folder."
  1764.     set mfset 0
  1765.     return
  1766.     } 
  1767.     switch [buttonAlert "Process all the tfm files in $Mffolderpath with tftopl ? " "yes" "cancel" ] {
  1768.     "yes" {
  1769.         foreach tfmfile $filesindir {
  1770.         Mf::setnames $tfmfile
  1771.         if {[file exists [file join $Mffolderpath $MFbasefilename.tfm]]} {
  1772.             Mf::doplProc
  1773.             app::launchFore "ALFA"
  1774.         }
  1775.         }
  1776.     }
  1777.     "cancel" {}
  1778.     }
  1779.     set mfset 0
  1780.     switch $MfmodeVars(mfAppSig) {
  1781.     "CMT3" {set extpl "plf"}
  1782.     "OzMF" {set extpl "pl"}
  1783.     }
  1784.     foreach tfmfile $filesindir {
  1785.     Mf::setnames $tfmfile
  1786.     if {[file exists [file join $Mffolderpath $MFbasefilename.$extpl]]} {
  1787.         edit -r [file join $Mffolderpath $MFbasefilename.$extpl]
  1788.     }
  1789.     }
  1790.     menu::buildSome otherFiles
  1791. }
  1792.  
  1793. proc Mf::vptovfafolderProc {} {
  1794.     global MFfullfilename MFdirfilename MFtailfilename #
  1795.     global MFbasefilename MFextfilename MFoutputfolder #
  1796.     global vplfile Mffolderpath MFcurrentdir
  1797.     global filesindir ext mfset
  1798.     catch {get_directory -p "Select a folder."} Mffolderpath
  1799.     set MFcurrentdir $Mffolderpath
  1800.     if {$Mffolderpath == ""} { return }
  1801.     Mf::vptovfallProc
  1802. }    
  1803.  
  1804. proc Mf::vptovfcurrfoldProc {} {
  1805.     global MFfullfilename MFdirfilename MFtailfilename #
  1806.     global MFbasefilename MFextfilename MFoutputfolder #
  1807.     global vplfile Mffolderpath MFcurrentdir
  1808.     global filesindir ext mfset
  1809.     if {$MFcurrentdir == ""}  {alertnote "No folder currently selected"
  1810.     return}
  1811.     set prefixrmall ""
  1812.     set Mffolderpath:  $MFcurrentdir
  1813.     Mf::vptovfallProc
  1814. }    
  1815.  
  1816. proc Mf::vptovfallProc {} {
  1817.     global MFfullfilename MFdirfilename MFtailfilename #
  1818.     global MFbasefilename MFextfilename MFoutputfolder #
  1819.     global vplfile Mffolderpath MFcurrentdir
  1820.     global filesindir ext mfset
  1821.     set ext "vpl"
  1822.     set mfset 1
  1823.     set filesindir [glob -nocomplain -dir [file join $Mffolderpath] *.$ext]
  1824.     if {[llength $filesindir] == 0} {
  1825.     alertnote "No \"$ext\" file in this folder."
  1826.     set mfset 0
  1827.     return
  1828.     } 
  1829.     switch [buttonAlert "Process all the vpl files in $Mffolderpath with vptovf ? " "yes" "cancel" ] {
  1830.     "yes" {
  1831.         foreach vplfile $filesindir {
  1832.         Mf::setnames $vplfile
  1833.         edit -r "$vplfile"
  1834.         Mf::dovplProc
  1835.         app::launchFore "ALFA"
  1836.         }
  1837.     }
  1838.     "cancel" {}
  1839.     }
  1840.     set mfset 0
  1841.     menu::buildSome otherFiles
  1842. }
  1843.  
  1844.  
  1845. #####################
  1846. #                   #
  1847. #   Utility procs   #
  1848. #                   #
  1849. #####################
  1850.  
  1851. proc Mf::setnames {name} {
  1852.     global MFfullfilename MFdirfilename MFtailfilename #
  1853.     global MFbasefilename MFextfilename MFoutputfolder #
  1854.     global MfmodeVars useWorkFold MfworkFolder
  1855.     
  1856.     set MFfullfilename $name
  1857.     set MFdirfilename [file dirname $name]
  1858.     set MFtailfilename [file tail $name]
  1859.     set MFbasefilename [file rootname [file tail $name]]
  1860.     set MFextfilename [file extension [file tail $name]]
  1861.     if {$MfmodeVars(useWorkFold) == 0} {
  1862.     set MFoutputfolder $MFdirfilename
  1863.     } else {
  1864.     set MFoutputfolder $MfmodeVars(MfworkFolder)
  1865.     }
  1866. }
  1867.  
  1868. proc Mf::getMfVersion {} {
  1869.     global  MfmodeVars  mfAppSig 
  1870.     if {$MfmodeVars(mfAppSig) != "CMT3"} {return}
  1871.     set sig "CMT3"
  1872.     set vers [objectProperty 'MACS' vers "obj {want:type(file), seld:$sig, form:fcrt, from:'null'()}"]
  1873.     if {[regexp {\“.* (.*)©.*\”\}$} $vers longvers numvers]} {
  1874.     return [list [string trim $longvers "\r\}"] [string trim $numvers "\r\}"]]
  1875.     } else {
  1876.     beep 
  1877.     message "Can't get version info"
  1878.     return
  1879.     }
  1880. }
  1881.  
  1882. # This proc looks in the current log file for a line indicating the name of
  1883. # the output file produced by Metafont so that we do not have to calculate
  1884. # the extension (which depends on the printer mode and the magnification)
  1885. proc Mf::findgfFile {} {
  1886.     global MFfullfilename MFdirfilename MFtailfilename #
  1887.     global MFbasefilename MFextfilename MFoutputfolder #
  1888.     global MfmodeVars mfAppSig MfworkFolder MFoutputfolder 
  1889.     global Mffolderpath mfwd mfset gffile
  1890.     switch $MfmodeVars(mfAppSig) {
  1891.     "CMT3" {     
  1892.         if {$mfset} {
  1893.         set mfwd $Mffolderpath
  1894.         } else {set mfwd $MFoutputfolder}
  1895.         if {![file exists [file join $mfwd $MFbasefilename.log]]} {
  1896.         beep 
  1897.         alertnote "Can't find file $MFbasefilename.log ; did you process $MFbasefilename.mf ?"
  1898.         return
  1899.         }
  1900.         catch {open [file join $mfwd $MFbasefilename.log]} fileId
  1901.     }
  1902.     "OzMF" {
  1903.         if {$mfset} {
  1904.         set mfwd $Mffolderpath
  1905.         } else {set mfwd [file dirname [win::Current]]}
  1906.         if {![file exists [file join $mfwd $MFbasefilename.log]]} {
  1907.         beep 
  1908.         alertnote "Can't find file $MFbasefilename.log ; did you process $MFbasefilename.mf ? Check that the \"delete_log\" flag in OzMetafont configs is set to false."
  1909.         return
  1910.         }
  1911.         catch {open [file join $mfwd $MFbasefilename.log]} fileId
  1912.     }
  1913.     }
  1914.     catch {read $fileId} textlog
  1915.     regsub -all "\n" $textlog "" textlog
  1916.     set textlog [split $textlog]
  1917.     catch {lsearch   -regexp  $textlog .*gf} indx
  1918.     if {[expr {$indx > 0}]} {
  1919.     set gffile [lindex $textlog $indx]
  1920.     set gffile  [file tail $gffile]
  1921.     return $gffile
  1922.     } else {
  1923.     alertnote "According to $MFbasefilename.log, no gf output written."
  1924.     return ""
  1925.     }
  1926. }
  1927.  
  1928. proc Mf::findmoderes {} {
  1929.     global MfmodeVars mfAppSig chosenMode
  1930.     if {$chosenMode == "proof"} {
  1931.     return [list "proof" "2602"]
  1932.     }
  1933.     if {$chosenMode == "smoke"} {
  1934.     return [list "smoke" "2602"]
  1935.     }
  1936.     if {[file exists $MfmodeVars(pathToModesMfFile) ]} {
  1937.         message "reading $MfmodeVars(pathToModesMfFile)"
  1938.         catch {open "$MfmodeVars(pathToModesMfFile)"} fileId
  1939.         catch {read $fileId} textlog
  1940.         # First we find the value of localfont
  1941.         if {$chosenMode == "localfont"} {
  1942.             regexp {localfont([^\;]*)\;} $textlog blabla localMfmode
  1943.             set localMfmode [string trim $localMfmode " :="]
  1944.         } elseif {$chosenMode == "smoke"} {
  1945.             set localMfmode $chosenMode
  1946.         } else {
  1947.             set localMfmode $MfmodeVars(mfModeForPrinter)            
  1948.         }
  1949.         # Then we find the resolution in dpi
  1950.         set start [string first "mode_def $localMfmode" $textlog]
  1951.         if {$start == -1} {
  1952.             alertnote "Unknown mode $localMfmode."
  1953.             return
  1954.         }
  1955.         set textlog [string range $textlog $start end]
  1956.         regexp {pixels_per_inch[^0-9)]*([0-9]*)} $textlog blabla resdpi
  1957.         return [list $localMfmode $resdpi]
  1958.     } else {
  1959.         alertnote "Can't find file modes.mf : set the path in the Current Mode Prefs."
  1960.         return [list "proof" "2602"]
  1961.     }
  1962. }
  1963.  
  1964. proc Mf::checkMfoutputFolder {} {
  1965.     global MfmodeVars MfworkFolder MFoutputfolder
  1966.     if {$MFoutputfolder == "" } {
  1967.     catch {get_directory -p "Select the output folder"} rootpath
  1968.     set MFoutputfolder [set rootpath]
  1969.     addArrDef MfmodeVars MfworkFolder $rootpath
  1970.     }
  1971. }
  1972.  
  1973. proc Mf::findrootnameProc {} {
  1974.     global rootname 
  1975.     set rootname [file rootname [file tail [win::Current]]]
  1976.     return
  1977. }
  1978.  
  1979. proc Mf::openMacroFile {flag name} {
  1980.     global MpmodeVars $flag
  1981.     if {[file exists $MpmodeVars($flag) ]} {
  1982.         message "opening $MpmodeVars($flag)"
  1983.         edit -r $MpmodeVars($flag) 
  1984.     } else {
  1985.         alertnote "Can't find file $name : where is it ?"
  1986.         catch {getfile "Please locate $name"}  chemin
  1987.     if {$chemin==""} {return}
  1988.         removeArrDef MpmodeVars $flag
  1989.         set $flag $chemin
  1990.         set MpmodeVars($flag) [set chemin]
  1991.         addArrDef MpmodeVars $flag $chemin
  1992.         edit -r $MpmodeVars($flag)
  1993.     }
  1994. }
  1995.  
  1996. proc Mf::openmodesmfProc {} {Mf::openMacroFile "pathToModesMfFile" "modes.mf"}
  1997.  
  1998. proc Mf::openplainmfProc {} {Mf::openMacroFile "pathToPlainMfFile" "plain.mf"}
  1999.  
  2000. proc Mf::deleteallfilesProc {ext} { 
  2001.     global MfmodeVars MfworkFolder MFcurrentdir MFoutputfolder
  2002.     switch $MfmodeVars(mfAppSig) {
  2003.     "CMT3" {
  2004.         if {$MFcurrentdir == ""} {
  2005.         set MFcurrentdir $MFoutputfolder
  2006.         }
  2007.     }
  2008.     "OzMF" {
  2009.         if {$MFcurrentdir == ""} {
  2010.         set MFcurrentdir [file dirname [win::Current]]
  2011.         }    
  2012.     }
  2013.     }
  2014.     if {![regexp "gf" $ext] && ![regexp "pk" $ext]} {
  2015.     set ext ".$ext"
  2016.     }
  2017.     set filesindir [glob -nocomplain -dir [file join $MFcurrentdir] *$ext]
  2018.     switch [buttonAlert "OK to remove all \"$ext\" files from $MFcurrentdir ?" "yes" "cancel" ] {
  2019.     "yes" {
  2020.         set longueur [llength $filesindir]
  2021.         if {$longueur == 0} {
  2022.         alertnote "No \"$ext\" file in output folder."
  2023.         return
  2024.         }
  2025.         foreach Mffile $filesindir {
  2026.         file delete $Mffile
  2027.         message "$longueur file(s) removed"
  2028.         }
  2029.     }
  2030.     "cancel" {return}
  2031.     }
  2032. }
  2033.  
  2034. proc Mf::allAuxfilesProc {ext} {
  2035.     global Mffolderpath
  2036.     set filesindir [glob -nocomplain -dir [file join $Mffolderpath] *.$ext]
  2037.     if {![llength $filesindir]} { 
  2038.     alertnote "No \"$ext\" files in folder $Mffolderpath"
  2039.     return
  2040.     } 
  2041.     foreach MFfile $filesindir {
  2042.     if {[file exists "$MFfile"]} {
  2043.         edit -r $MFfile
  2044.     }
  2045.     }
  2046. }
  2047.  
  2048. proc Mf::sourceFilesProc {menu item} {
  2049.     global mfPaths MfmodeVars pathToSourceFolder buildSourceFiles nestingDepth mfsymb
  2050.     if {$item == "Rebuild Source List"} {
  2051.     if {!$MfmodeVars(buildSourceFiles) || $MfmodeVars(pathToSourceFolder) == "" } {
  2052.         alertnote "You must set the \
  2053.           \"Path To Source Folder\" and check the \"Build Source Files\" checkbox in the mode preferences."
  2054.     } else {
  2055.         Mf::shadowList ""
  2056.     }
  2057.     } else {
  2058.     set upfold $menu
  2059.     eval [concat set upfold \[string trimleft $menu \"$mfsymb\"\]]
  2060.     set upfold [file join $upfold $item]
  2061.     edit $mfPaths($upfold)
  2062.     } 
  2063. }
  2064.  
  2065.  
  2066. ################################
  2067. #                              #
  2068. #   Insert commands submenus   #
  2069. #                              #
  2070. ################################
  2071.  
  2072. proc Mf::newtemplateProc {} {
  2073.     global MfmodeVars userBeginchar userEndchar
  2074.     global MfmodeVars myName myEMail myWebPage
  2075.     new -n "newfont.mf"
  2076.     #     Ask how many chars in the font
  2077.     beep
  2078.     catch {prompt "How many chars in the new font ?" 128} nbchr
  2079.     if {$nbchr == "cancel"} {
  2080.     return
  2081.     } elseif {![is::PositiveInteger $nbchr]} {
  2082.     beep
  2083.     message "invalid input: please enter a positive integer"
  2084.     return
  2085.     }
  2086.     if {$MfmodeVars(myName)=="" & $MfmodeVars(myEMail)=="" & $MfmodeVars(myWebPage)=="http://"} {
  2087.     alertnote "You should declare your name, e-mail address and Web page in the Mode Prefs to have them automatically inserted in the preambule."
  2088.     }
  2089.     goto 0
  2090.     #     Preambule instruction
  2091.     set t "\% This file : •\n"
  2092.     append t "\% Created : [Mf::creationdate]\n"    
  2093.     append t "\% Author : $MfmodeVars(myName)\n"    
  2094.     append t "\% e-mail : <$MfmodeVars(myEMail)>\n"    
  2095.     append t "\% Web-page : <$MfmodeVars(myWebPage)>\n"    
  2096.     append t "\% Comments : •\n% \n% \n% \n\n"    
  2097.     append t "font_size  •pt\#;    \% the \"design size\" of this font\n\n"
  2098.     append t "mode_setup;"
  2099.     append t "\n\n\%\%\%\% Parameters \%\%\%\%\n\n"
  2100.     append t "\n\n\%\%\%\% Pixellisation \%\%\%\%\n\n"
  2101.     append t "define_pixels(•);\n"
  2102.     append t "define_whole_pixels(•);\n"
  2103.     append t "define_whole_vertical_pixels(•);\n"
  2104.     append t "define_blacker_pixels(•);\n"
  2105.     append t "define_good_x_pixels(•);\n"
  2106.     append t "define_good_y_pixels(•);\n"
  2107.     append t "define_corrected_pixels(•);\n"
  2108.     append t "define_horizontal_corrected_pixels(•);\n"
  2109.     append t "\n\n\%\%\%\% Macros and definitions \%\%\%\%\n\n"
  2110.     append t "\n\n\%\%\%\% Drawing instructions for the characters \%\%\%\%\n\n"
  2111.     insertText $t
  2112.     set i 0
  2113.     for {set i 0} {$i < $nbchr} {incr i} {
  2114.     insertText "$MfmodeVars(userBeginchar)([set i],•,•,•);\"•\";\n\n\n\n$MfmodeVars(userEndchar);\n\n"
  2115.     }
  2116.     #     Postambule instruction
  2117.     set t "\n\n\%\%\%\% Ligtables and kerning \%\%\%\%\n\n"
  2118.     append t "ligtable \"•\": \"•\" kern • \#;\n"
  2119.     append t "\n\n\%\%\%\% General Font Parameters \%\%\%\%\n\n"    
  2120.     append t "font_slant:=• ;\t\t\t\% slant per point\n"
  2121.     append t "font_normal_space:=• ;\t\t\% interword spacing\n"
  2122.     append t "font_normal_stretch:=• ;\t\% stretchability of interword spacing\n"
  2123.     append t "font_normal_shrink:=•;\t\t\% shrinkability of interword spacing\n"
  2124.     append t "font_x_height:=• ;\t\t\% TeX's ex unit\n"
  2125.     append t "font_quad:=• ;\t\t\t\% TeX's em unit\n"
  2126.     append t "font_extra_space:=• ;\t\t\% additional spacing between sentences\n"
  2127.     append t "\nfont_coding_scheme:= \"•\";\t\% coding scheme (optional)\n"
  2128.     append t "font_identifier:= \"•\";\t\t\% family (optional)\n"
  2129.     append t "\n\nbye"
  2130.     insertText $t
  2131.     goto 0
  2132. }
  2133.  
  2134. proc Mf::creationdate {} {
  2135.     set date [lindex [mtime [now] long] 0]
  2136.     append date " - [lindex [mtime [now] long] 1]"
  2137.     return $date    
  2138. }
  2139.  
  2140. proc Mf::variablesProc {menu item} {
  2141.     switch $item {    
  2142.     " boolean" {insertObject "boolean ••;\n••"}
  2143.     " numeric" {insertObject "numeric ••;\n••"}
  2144.     " pair" {insertObject "pair ••;\n••"}
  2145.     " path" {insertObject "path ••;\n••"}
  2146.     " pen" {insertObject "pen ••;\n••"}
  2147.     " picture" {insertObject "picture ••;\n••"}
  2148.     " string" {insertObject "string ••;\n••"}
  2149.     " transform" {insertObject "transform ••;\n••"}
  2150.     " newinternal" {insertObject "newinternal ••;\n••"}
  2151.     }
  2152. }
  2153.  
  2154. proc Mf::booleanProc {menu item} {
  2155.     switch $item {    
  2156.     " charexists" {insertObject "charexists "}
  2157.     " cycle" {insertObject "cycle "}
  2158.     " false" {insertObject "false "}
  2159.     " known" {insertObject "known "}
  2160.     " true" {insertObject "true "}
  2161.     " unknown" {insertObject "unknown "}
  2162.     }
  2163. }
  2164.  
  2165. proc Mf::functionsProc {menu item} {
  2166.     switch $item {    
  2167.     " angle" {insertObject "angle ••;\n••"}
  2168.     " ceilling" {insertObject "ceilling ••;\n••"}
  2169.     " floor" {insertObject "floor(••)••"}
  2170.     " cosd" {insertObject "cosd(••)••"}
  2171.     " sind" {insertObject "sind(••)••"}
  2172.     " mexp" {insertObject "mexp(••)••"}
  2173.     " mlog" {insertObject "mlog(••)••"}
  2174.     " sqrt" {insertObject "sqrt(••)••"}
  2175.     " dotprod" {insertObject "dotprod •• = ••;\n••"}
  2176.     " eps" {insertObject "eps "}
  2177.     " epsilon" {insertObject "epsilon "}
  2178.     " infinity" {insertObject "infinity "}
  2179.     " round" {insertObject "round(••)••"}
  2180.     " hround" {insertObject "hround(••)••"}
  2181.     " vround" {insertObject "vround(••)••"}
  2182.     " solve" {insertObject "solve ••(••,••);\n••"}
  2183.     " tolerance" {insertObject "tolerance:= ••;\n••"}
  2184.     " normaldeviate" {insertObject "normaldeviate(••)••"}
  2185.     " randomseed" {insertObject "randomseed:= ••;\n••"}
  2186.     " uniformdeviate" {insertObject "uniformdeviate(••)••"}
  2187.     " whatever" {insertObject "whatever "}
  2188.     }
  2189. }
  2190.  
  2191. proc Mf::positioningProc {menu item} {
  2192.     switch $item {    
  2193.     " clearxy" {insertObject "clearxy ••;\n••"}
  2194.     " direction" {insertObject "direction •• of ••"}
  2195.     " directionpoint" {insertObject "directionpoint •• of ••"}
  2196.     " directiontime" {insertObject "directiontime •• of ••;\n••"}
  2197.     " penoffset" {insertObject "penoffset •• of ••"}
  2198.     " point…of" {insertObject "point •• of ••"}
  2199.     " precontrol…of" {insertObject "precontrol •• of ••"}
  2200.     " postcontrol…of" {insertObject "postcontrol •• of ••"}
  2201.     " intersectionpoint" {insertObject " •• intersectionpoint ••"}
  2202.     " intersectiontimes" {insertObject "•• intersectiontimes ••"}
  2203.     " good.bot" {insertObject "good.bot "}
  2204.     " good.lft" {insertObject "good.lft "}
  2205.     " good.rt" {insertObject "good.rt "}
  2206.     " good.top" {insertObject "good.top "}
  2207.     " good.x" {insertObject "good.x "}
  2208.     " good.y" {insertObject "good.y "}
  2209.     " xpart" {insertObject "xpart(••)••"}
  2210.     " xxpart" {insertObject "xxpart(••)••"}
  2211.     " xypart" {insertObject "xypart(••)••"}
  2212.     " ypart" {insertObject "ypart(••)••"}
  2213.     " yxpart" {insertObject "yxpar(••)••"}
  2214.     " yypart" {insertObject "yypart(••)••"}
  2215.     }
  2216. }
  2217.  
  2218. proc Mf::pathsProc {menu item} {
  2219.     switch $item {    
  2220.     " penstroke" {insertObject "penstroke ••;\n••"}
  2221.     " build…penstroke" {Mf::penstrokeProc}
  2222.     " flex" {Mf::mkflexProc}
  2223.     " fullcircle" {insertObject "fullcircle "}
  2224.     " halfcircle" {insertObject "halfcircle "}
  2225.     " quartercircle" {insertObject "quartercircle "}
  2226.     " superellipse" {insertObject "superellipse(••,••,••,••,••);\n••"}
  2227.     " unitsquare" {insertObject "unitsquare "}
  2228.     " makepath" {insertObject "makepath ••;\n••"}
  2229.     " interpath" {insertObject "interpath(••,••,••);\n••"}
  2230.     " subpath" {insertObject "subpath(••,••) of ••"}
  2231.     " tensepath" {insertObject "tensepath "}
  2232.     " counterclockwise" {insertObject "counterclockwise "}
  2233.     " reverse" {insertObject "reverse "}
  2234.     " turningnumber" {insertObject "turningnumber "}
  2235.     }
  2236. }
  2237.  
  2238. proc Mf::pensProc {menu item} {
  2239.     switch $item {    
  2240.     " clear_pen_memory" {insertObject "clear_pen_memory;"}
  2241.     " clearpen" {insertObject "clearpen;"}
  2242.     " currentpen" {insertObject "currentpen "}
  2243.     " makepen" {insertObject "makepen "}
  2244.     " nullpen" {insertObject "nullpen;"}
  2245.     " savepen" {insertObject "••:=savepen;••"}
  2246.     " pencircle" {insertObject "pencircle "}
  2247.     " pickup…pencircle" {insertObject "pickup pencircle "}
  2248.     " pencircle…scaled" {insertObject "pencircle •• xscaled •• yscaled ••;\n••"}
  2249.     " pickup…pencircle…scaled" {insertObject "pickup pencircle •• xscaled •• yscaled ••;\n••"}
  2250.     " pensquare" {insertObject "pensquare "}
  2251.     " pickup…pensquare" {insertObject "pickup pensquare "}
  2252.     " pensquare…scaled" {insertObject "pensquare •• xscaled •• yscaled ••;\n••"}
  2253.     " pickup…pensquare…scaled" {insertObject "pickup pensquare •• xscaled •• yscaled ••;\n••"}
  2254.     " penrazor" {insertObject "penrazor;"}
  2255.     " penspeck" {insertObject "penspeck;"}
  2256.     " penpos" {insertObject "penpos••(••,••);\n••"}
  2257.     " pen_bot" {insertObject "pen_bot"}
  2258.     " pen_lft" {insertObject "pen_lft"}
  2259.     " pen_rt" {insertObject "pen_rt"}
  2260.     " pen_top" {insertObject "pen_top"}
  2261.     " pickup" {insertObject "pickup "}
  2262.     }
  2263. }
  2264.  
  2265. proc Mf::picturesProc {menu item} {
  2266.     switch $item {    
  2267.     " blankpicture" {insertObject "blankpicture"}
  2268.     " clearit" {insertObject "clearit ••;\n••"}
  2269.     " currentpicture" {insertObject "currentpicture"}
  2270.     " nullpicture" {insertObject "nullpicture"}
  2271.     " totalweight" {insertObject "totalweight "}
  2272.     " unitpixel" {insertObject "unitpixel"}
  2273.     }
  2274. }
  2275.  
  2276. proc Mf::stringsProc {menu item} {
  2277.     switch $item {    
  2278.     " ditto" {insertObject "ditto"}
  2279.     " jobname" {insertObject "jobname"}
  2280.     " readstring" {insertObject "••:=readstring;••"}
  2281.     " substring" {insertObject "substring(••,••) of ••"}
  2282.     }
  2283. }
  2284.  
  2285. proc Mf::transformationsProc {menu item} {
  2286.     switch $item {    
  2287.     " currenttransform" {insertObject "currenttransform "}
  2288.     " identity" {insertObject "identity "}
  2289.     " inverse" {insertObject "inverse "}
  2290.     " reflectedabout" {insertObject "reflectedabout(••,••) ••"}
  2291.     " rotated" {insertObject "rotated "}
  2292.     " rotatedaround" {insertObject "rotatedaround(••,••) ••"}
  2293.     " scaled" {insertObject "scaled "}
  2294.     " shifted" {insertObject "shifted "}
  2295.     " slanted" {insertObject "slanted "}
  2296.     " transformed" {insertObject "transformed "}
  2297.     " xscaled" {insertObject "xscaled "}
  2298.     " yscaled" {insertObject "yscaled "}
  2299.     " zscaled" {insertObject "zscaled "}
  2300.     }
  2301. }
  2302.  
  2303. proc Mf::definitionsProc {menu item} {
  2304.     switch $item {    
  2305.     " def…enddef" {insertObject "def ••=\n••\nenddef;\n••"}
  2306.     " suffix" {insertObject "(suffix ••)••"}
  2307.     " expr" {insertObject "(expr ••)••"}
  2308.     " text" {insertObject "(text ••)••"}
  2309.     " primarydef…enddef" {insertObject "primarydef ••=\n••\nenddef;\n••"}
  2310.     " secondarydef…enddef" {insertObject "secondarydef ••=\n••\nenddef;\n••"}
  2311.     " tertiarydef…enddef" {insertObject "tertiarydef ••=\n••\nenddef;\n••"}
  2312.     " vardef…enddef" {insertObject "vardef ••=\n••\nenddef;\n••"}
  2313.     " begingroup…endgroup" {insertObject "begingroup ••\n\nendgroup;\n••"}
  2314.     }
  2315. }
  2316.  
  2317. proc Mf::conditionsProc {menu item} {
  2318.     switch $item {    
  2319.     " for…endfor" {insertObject "for •• : •• endfor;\n••"}
  2320.     " forever…endfor" {insertObject "forever •• endfor;\n••"}
  2321.     " forsuffixes…endfor" {insertObject "forsuffixes •• : •• endfor;\n••"}
  2322.     " if…fi" {insertObject "if •• : •• fi\n••"}
  2323.     " if…elseif…else…fi" {insertObject "if •• elseif •• else •• fi\n••"}
  2324.     " downto" {insertObject "downto "}
  2325.     " upto" {insertObject "upto "}
  2326.     " step…until" {insertObject "step •• until •• : ••"}
  2327.     " exitif" {insertObject "exitif ••;"}
  2328.     " exitunless" {insertObject "exitunless ••;"}
  2329.     }
  2330. }
  2331.  
  2332. proc Mf::drawingProc {menu item} {
  2333.     switch $item {    
  2334.     " addto…also" {insertObject "addto •• also ••;\n••"}
  2335.     " addto…currentpicture" {insertObject "addto currentpicture also currentpicture;\n••"}
  2336.     " addto…contour" {insertObject "addto •• contour •• ;\n••"}
  2337.     " addto…contour…withpen" {insertObject "addto •• contour •• withpen ••;\n••"}
  2338.     " addto…contour…withweight" {insertObject "addto •• contour •• withweight ••;\n••"}
  2339.     " addto…doublepath" {insertObject "addto •• doublepath ••;\n••"}
  2340.     " addto…doublepath…withpen" {insertObject "addto •• doublepath •• withpen ••;\n••"}
  2341.     " addto…doublepath…withweight" {insertObject "addto •• doublepath •• withweight ••;\n••"}
  2342.     " cull…dropping" {insertObject "cull •• dropping (••,••);\n••"}
  2343.     " cull…dropping…withweight" {insertObject "cull •• dropping (••,••) withweight ••;\n••"}
  2344.     " cull…keeping" {insertObject "cull •• keeping (••,••);\n••"}
  2345.     " cull…keeping…withweight" {insertObject "cull •• keeping (••,••) withweight ••;\n••"}
  2346.     " cullit" {insertObject "cullit ••;\n••"}
  2347.     " cutdraw" {insertObject "cutdraw "}
  2348.     " cutoff" {insertObject "cutoff(••,••);\n••"}
  2349.     " draw" {insertObject "draw "}
  2350.     " drawdot" {insertObject "drawdot ••;\n••"}
  2351.     " erase" {insertObject "erase ••;\n••"}
  2352.     " fill" {insertObject "fill ••;\n••"}
  2353.     " filldraw" {insertObject "filldraw ••;\n••"}
  2354.     " undraw" {insertObject "undraw "}
  2355.     " undrawdot" {insertObject "undrawdot ••;\n••"}
  2356.     " unfill" {insertObject "unfill ••;\n••"}
  2357.     " unfilldraw" {insertObject "unfilldraw ••;\n••"}
  2358.     }
  2359. }
  2360.  
  2361. proc Mf::charactersProc {menu item} {
  2362.     global MfmodeVars userBeginchar userEndchar
  2363.     switch $item {    
  2364.     " beginchar…endchar" {insertObject "$MfmodeVars(userBeginchar)(\"••\",••,••,••);\"••\";\n••\n$MfmodeVars(userEndchar);\n••"}
  2365.     " extra_beginchar" {insertObject "extra_beginchar:=\" •• \";\n••"}
  2366.     " extra_endchar" {insertObject "extra_endchar:=\" •• \";\n••"}
  2367.     }
  2368. }
  2369.  
  2370. proc Mf::unitsProc {menu item} {
  2371.     switch $item {    
  2372.     " blacker" {insertObject "blacker:=••;\n••"}
  2373.     " fillin" {insertObject "fillin:=••;\n••"}
  2374.     " o_correction" {insertObject "o_correction:= ••;\n••"}
  2375.     " fix_units" {insertObject "fix_units;\n"}
  2376.     " mode_setup" {insertObject "mode_setup;\n"}
  2377.     " pixels_per_inchs" {insertObject "pixels_per_inchs:=••;\n••"}
  2378.     " aspect_ratio" {insertObject "aspect_ratio:=••;\n••"}
  2379.     }
  2380. }
  2381.  
  2382. proc Mf::pixellisationProc {menu item} {
  2383.     switch $item {    
  2384.     " define_pixels" {insertObject "define_pixels(••);\n••"}
  2385.     " define_blacker_pixels" {insertObject "define_blacker_pixels(••);\n••"}
  2386.     " define_good_x_pixels" {insertObject "define_good_x_pixels(••);\n••"}
  2387.     " define_good_y_pixels" {insertObject "define_good_y_pixels(••);\n••"}
  2388.     " define_corrected_pixels" {insertObject "define_corrected_pixels(••);\n••"}
  2389.     " define_horizontal_corrected_pixels" {insertObject "define_horizontal_corrected_pixels(••);\n••"}
  2390.     " define_whole_pixels" {insertObject "define_whole_pixels(••);\n••"}
  2391.     " define_whole_blacker_pixels" {insertObject "define_whole_blacker_pixels(••);\n••"}
  2392.     " define_whole_vertical_pixels" {insertObject "define_whole_vertical_pixels(••);\n••"}
  2393.     " define_whole_vertical_blacker_pixels" {insertObject "define_whole_vertical_blacker_pixels(••);\n••"}
  2394.     }
  2395. }
  2396.  
  2397. proc Mf::fontInternalsProc {menu item} {
  2398.     switch $item {    
  2399.     " charlist" {insertObject "charlist ••: •• : •• : •• : ••"}
  2400.     " extensible" {insertObject "extensible ••: ••, ••, ••, ••"}
  2401.     " font_coding_scheme" {insertObject "font_coding_scheme:= \"••\";\n••"}
  2402.     " font_extra_space" {insertObject "font_extra_space:= ••;\n••"}
  2403.     " font_identifier" {insertObject "font_identifier:= \"••\";\n••"}
  2404.     " font_normal_shrink" {insertObject "font_normal_shrink:= ••;\n••"}
  2405.     " font_normal_space" {insertObject "font_normal_space:= ••;\n••"}
  2406.     " font_normal_stretch" {insertObject "font_normal_stretch:= ••;\n••"}
  2407.     " font_quad" {insertObject "font_quad:= ••;\n••"}
  2408.     " font_size" {insertObject "font_size:= ••;\n••"}
  2409.     " font_slant" {insertObject "font_slant:= ••;\n••"}
  2410.     " font_x_height" {insertObject "font_x_height:= ••;\n••"}
  2411.     " fontdimen" {insertObject "fontdimen ••: ••, ••, ••, ••\n••"}
  2412.     " headerbytes" {insertObject "headerbytes ••: ••, ••, ••, ••"}
  2413.     " ligtable" {insertObject "ligtable \"••\" : \"••\" =: oct\"••\";\n••"}
  2414.     " kern" {insertObject "kern ••\#••"}
  2415.     }
  2416. }
  2417.  
  2418. proc Mf::displayingProc {menu item} {
  2419.     switch $item {    
  2420.     " currentwindow" {insertObject "currentwindow:= ••;\n••"}
  2421.     " display…inwindow" {insertObject "display •• inwindow ••;\n••"}
  2422.     " openwindow…from…to…at" {insertObject "openwindow •• from (••,••) to (••,••) at (••,••);\n••"}
  2423.     " screen_cols" {insertObject "screen_cols:= ••;\n••"}
  2424.     " screen_rows" {insertObject "screen_rows:= ••;\n••"}
  2425.     " screenrule" {insertObject "screenrule(••,••);\n••"}
  2426.     }
  2427. }
  2428.  
  2429. proc Mf::outputProc {menu item} {
  2430.     switch $item {    
  2431.     " openit" {insertObject "openit;\n"}
  2432.     " shipit" {insertObject "shipit;\n"}
  2433.     " showit" {insertObject "showit;\n"}
  2434.     " labels" {insertObject "labels(••);\n••"}
  2435.     " labels…range…thru" {insertObject "labels(range •• thru ••);\n••"}
  2436.     " penlabels" {insertObject "penlabels(••);\n••"}
  2437.     " makelabel" {insertObject "makelabel(\"••\",••);\n••"}
  2438.     " makegrid..." {Mf::mkgridProc}
  2439.     " proofoffset" {insertObject "proofoffset(••,••);\n••"}
  2440.     " proofrule" {insertObject "proofrule(••,••);\n••"}
  2441.     " proofrulethickness" {insertObject "proofrulethickness:=••;\n••"}
  2442.     " grayfont" {insertObject "grayfont \"••\";\n••"}
  2443.     " labelfont" {insertObject "labelfont \"••\";\n••"}
  2444.     " slantfont" {insertObject "slantfont \"••\";\n••"}
  2445.     " titlefont" {insertObject "titlefont \"••\";\n••"}
  2446.     }
  2447. }
  2448.  
  2449. proc Mf::debuggingProc {menu item} {
  2450.     switch $item {    
  2451.     " errhelp" {insertObject "errhelp "}
  2452.     " errmessage" {insertObject "errmessage \"••\";\n••"}
  2453.     " message" {insertObject "message \"••\";\n••"}
  2454.     " stop" {insertObject "stop;\n"}
  2455.     " show" {insertObject "show ••;\n••"}
  2456.     " showdependencies" {insertObject "showdependencies;\n"}
  2457.     " showstats" {insertObject "showstats;\n"}
  2458.     " showtoken" {insertObject "showtoken ••;\n••"}
  2459.     " showvariable" {insertObject "showvariable ••;\n••"}
  2460.     " loggingall" {insertObject "loggingall:= ••\n••"}
  2461.     " tracingall" {insertObject "tracingall;\n"}
  2462.     " tracingnone" {insertObject "tracingnone;\n"}
  2463.     " batchmode" {insertObject "batchmode;\n"}
  2464.     " errorstopmode" {insertObject "errorstopmode;\n"}
  2465.     " nonstopmode" {insertObject "nonstopmode;\n"}
  2466.     " scrollmode" {insertObject "scrollmode;\n"}
  2467.     }
  2468. }
  2469.  
  2470. proc Mf::miscProc {menu item} {
  2471.     switch $item {    
  2472.     " capsule_def" {insertObject "capsule_def ••;\n••"}
  2473.     " expandafter" {insertObject "expandafter "}
  2474.     " gobble" {insertObject "gobble "}
  2475.     " gobbled" {insertObject "gobbled "}
  2476.     " interact" {insertObject "interact;\n••"}
  2477.     " numtok" {insertObject "numtok "}
  2478.     " scantokens" {insertObject "scantokens "}
  2479.     " special" {insertObject "special \" ••\";\n••"}
  2480.     " numspecial" {insertObject "numspecial ••;\n••"}
  2481.     }
  2482. }
  2483.  
  2484. proc Mf::varintProc {menu item} {
  2485.     switch $item {    
  2486.     " autorounding" {insertObject "autorounding:= ••;\n••"}
  2487.     " designsize" {insertObject "designsize:= ••;\n••"}
  2488.     " fontmaking" {insertObject "fontmaking:= ••;\n••"}
  2489.     " granularity" {insertObject "granularity:= ••;\n••"}
  2490.     " pausing" {insertObject "pausing:= ••;\n••"}
  2491.     " proofing" {insertObject "proofing:= ••;\n••"}
  2492.     " showstopping" {insertObject "showstopping:= ••;\n••"}
  2493.     " smoothing" {insertObject "smoothing:= ••;\n••"}
  2494.     " charcode" {insertObject "charcode:= ••;\n••"}
  2495.     " chardp" {insertObject "chardp:= ••;\n••"}
  2496.     " chardx" {insertObject "chardx:= ••;\n••"}
  2497.     " chardy" {insertObject "chardy:= ••;\n••"}
  2498.     " charext" {insertObject "charext:= ••;\n••"}
  2499.     " charht" {insertObject "charht:= ••;\n••"}
  2500.     " charic" {insertObject "charic:= ••;\n••"}
  2501.     " charwd" {insertObject "charwd:= ••;\n••"}
  2502.     " hppp" {insertObject "hppp:= ••;\n••"}
  2503.     " vppp" {insertObject "vppp:= ••;\n••"}
  2504.     " xoffset" {insertObject "xoffset:= ••;\n••"}
  2505.     " yoffset" {insertObject "yoffset:= ••;\n••"}
  2506.     " day" {insertObject "day;"}
  2507.     " month" {insertObject "month;"}
  2508.     " year" {insertObject "year;"}
  2509.     " time" {insertObject "time;"}
  2510.     " tracingcapsules" {insertObject "tracingcapsules:= ••;\n••"}
  2511.     " tracingchoices" {insertObject "tracingchoices:= ••;\n••"}
  2512.     " tracingcommands" {insertObject "tracingcommands:= ••;\n••"}
  2513.     " tracingedges" {insertObject "tracingedges:= ••;\n••"}
  2514.     " tracingequations" {insertObject "tracingequations:= ••;\n••"}
  2515.     " tracingmacros" {insertObject "tracingmacros:= ••;\n••"}
  2516.     " tracingonline" {insertObject "tracingonline:= ••;\n••"}
  2517.     " tracingoutput" {insertObject "tracingoutput:= ••;\n••"}
  2518.     " tracingpens" {insertObject "tracingpens:= ••;\n••"}
  2519.     " tracingrestores" {insertObject "tracingrestores:= ••;\n••"}
  2520.     " tracingspecs" {insertObject "tracingspecs:= ••;\n••"}
  2521.     " tracingstats" {insertObject "tracingstats:= ••;\n••"}
  2522.     " tracingtitles" {insertObject "tracingtitles:= ••;\n••"}
  2523.     " turningcheck" {insertObject "turningcheck:= ••;\n••"}
  2524.     " warningcheck" {insertObject "warningcheck:= ••;\n••"}
  2525.     }
  2526. }
  2527.  
  2528. # In this proc, choose the number of horizontal and vertical lines in a grid
  2529. proc Mf::mkgridProc {} {
  2530.     set macroName "makegrid"
  2531.     beep
  2532.     catch {prompt "$macroName:  how many x-coordinates ?" 3} numbx
  2533.     if {$numbx == "cancel"} {
  2534.     return
  2535.     } elseif {![is::PositiveInteger $numbx]} {
  2536.     beep
  2537.     message "invalid input: please enter a positive integer"
  2538.     return
  2539.     }
  2540.     catch {prompt "$macroName:  how many y-coordinates ?" 3} numby
  2541.     if {$numby == "cancel"} {
  2542.     return
  2543.     } elseif {![is::PositiveInteger $numby]} {
  2544.     beep
  2545.     message "invalid input: please enter a positive integer"
  2546.     return
  2547.     }
  2548.     if {$numbx && $numby} {
  2549.     set body "makegrid(••"
  2550.     for {set i 1} {$i < $numbx} {incr i} {
  2551.         append body ",••"
  2552.     }
  2553.     append body ")(••"
  2554.     for {set i 1} {$i < $numby} {incr i} {
  2555.         append body ",••"
  2556.     }
  2557.     append body ");\n••"
  2558.     } else {
  2559.     set body "••\r"
  2560.     }
  2561.     insertObject $body
  2562. }
  2563.  
  2564. # In this proc, choose the number of points on a flex path
  2565. proc Mf::mkflexProc {} {
  2566.     set macroName "flex"
  2567.     beep
  2568.     catch {prompt "$macroName:  how many points on the flex-path ?" 3} numbp
  2569.     if {$numbp == "cancel"} {
  2570.     return
  2571.     } elseif {![is::PositiveInteger $numbp]} {
  2572.     beep
  2573.     message "invalid input: please enter a positive integer"
  2574.     return
  2575.     }
  2576.     if {$numbp} {
  2577.     set body "flex(••"
  2578.     for {set i 1} {$i < $numbp} {incr i} {
  2579.         append body ",••"
  2580.     }
  2581.     append body ") ••"
  2582.     } else {
  2583.     set body "••\r"
  2584.     }
  2585.     insertObject $body
  2586. }
  2587.  
  2588. # In this proc, choose the number of points on a penstroke
  2589. proc Mf::penstrokeProc {} {
  2590.     set macroName "penstroke"
  2591.     beep
  2592.     catch {prompt "$macroName:  how many points on the penstroke ?" 3} numbp
  2593.     if {$numbp == "cancel"} {
  2594.     return
  2595.     } elseif {![is::PositiveInteger $numbp]} {
  2596.     beep
  2597.     message "invalid input: please enter a positive integer"
  2598.     return
  2599.     }
  2600.     if {$numbp} {
  2601.     set body "penstroke z1e"
  2602.     for {set i 2} {$i < [expr {$numbp + 1}]} {incr i} {
  2603.         append body "..z${i}e"
  2604.     }
  2605.     append body " ;"
  2606.     } else {
  2607.     set body "••\r"
  2608.     }
  2609.     insertObject $body
  2610. }
  2611.  
  2612.  
  2613. #############################
  2614. #                           #
  2615. #   Mode specific goodies   #
  2616. #                           #
  2617. #############################
  2618.  
  2619. #########   Syntax Coloring  ###########
  2620. # We define two groups of keywords :
  2621. # -  the macros of the Metafont plain format. Default color : blue
  2622. # -  the Metafont primitives. Default color : magenta
  2623. # These colors can be modified in the mode prefs : see "Keyword Color" 
  2624. # and "Primitives Color".
  2625.  
  2626. set mfKeyWords { 
  2627. abs beginchar blacker blankpicture bot bye byte capsule_def ceilling 
  2628. change_width checksum clear_pen_memory clearit clearpen 
  2629. clearxy codingscheme counterclockwise cullit currentpen currentpicture 
  2630. currenttransform currentwindow cutdraw cutoff decr define_blacker_pixels 
  2631. define_good_x_pixels define_good_y_pixels define_pixels define_whole_pixels 
  2632. direction directionpoint displaying ditto dotprod downto draw drawdot endchar 
  2633. eps epsilon erase exitunless extra_beginchar extra_endchar extraspace face 
  2634. family fill filldraw fix_units flex font_coding_scheme font_extra_space 
  2635. font_identifier font_normal_shrink font_normal_space font_normal_stretch 
  2636. font_quad font_size font_slant font_x_height fontdimen fullcircle gfcorners gobble 
  2637. gobbled good.bot good.lft good.rt good.top good.x good.y grayfont halfcircle 
  2638. hide hround identity imagerules incr infinity interact interpath intersectionpoint 
  2639. inverse italcorr join_radius label labelfont labels lft loggingall makegrid 
  2640. makelabel max min mod mode_setup nextlarger nodisplays notransforms numtok 
  2641. o_correction of openit openwindow or pen_bot pen_lft pen_rt pen_top penlabels 
  2642. penpos penrazor penspeck pensquare penstroke pickup pixels_per_inchs proofoffset 
  2643. proofrule proofrulethickness quad quartercircle range reflectedabout relax rep 
  2644. rotatedaround round rt savepen screen_cols screen_rows screenchars screenrule 
  2645. screenstrokes secondary shipit showit shrink slant slantfont solve space stop 
  2646. stretch superellipse tensepath text thru titlefont tolerance top tracingall 
  2647. tracingnone undraw undrawdot unfill unfilldraw unitpixel unitsquare upto 
  2648. varchar vround whatever xheight 
  2649. }
  2650.  
  2651. regModeKeywords  -e {%} -c $MfmodeVars(commentColor) \
  2652.   -k $MfmodeVars(keywordColor)  -s $MfmodeVars(stringColor) Mf $mfKeyWords
  2653. unset mfKeyWords
  2654.  
  2655. set mfprimKeyWords { 
  2656. ASCII addto also and angle at atleast autorounding batchmode
  2657. begingroup boolean char character charcode chardp chardx chardy charexists
  2658. charext charht charic charlist charwd comment contour controls cosd cull curl
  2659. cycle day decimal def delimiters designsize designunits directiontime
  2660. display doublepath dump dropping else elseif end enddef endfor
  2661. endgroup endinput errhelp errmessage errorstopmode everyjob exitif
  2662. expandafter expr extensible false fi fillin floor fontdimen fontmaking
  2663. fontname fontdsize fontat forever forsuffixes from granularity
  2664. headerbytes hex hppp if inner input interim intersectiontimes inwindow
  2665. jobname keeping kern known krn length let lig ligtable makepath
  2666. makepen map mapfont message mexp mlog month newinternal nonstopmode
  2667. normaldeviate not nullpen nullpicture numeric numspecial oct odd
  2668. openwindow outer pair parameter path pausing pen pencircle penoffset picture
  2669. point postcontrol precontrol primary primarydef proofing quote
  2670. randomseed readstring reverse rotated save scaled scantokens
  2671. scrollmode secondarydef setchar shifted shipout show showdependencies
  2672. showstats showstopping showtoken showvariable sind slanted smoothing
  2673. special sqrt step str string subpath substring suffix tension tertiary
  2674. tertiarydef time to totalweight tracingcapsules tracingchoices
  2675. tracingcommands tracingedges tracingequations tracingmacros
  2676. tracingonline tracingoutput tracingpens tracingrestores tracingspecs
  2677. tracingstats tracingtitles transform transformed true turningcheck
  2678. turningnumber uniformdeviate unknown until vardef vppp warningcheck
  2679. withpen withweight xoffset xpart xscaled xxpart xypart year yoffset
  2680. ypart yscaled yxpart yypart zscaled 
  2681. }
  2682.  
  2683. regModeKeywords  -a -k $MfmodeVars(primitivesColor) Mf $mfprimKeyWords
  2684.  
  2685. # We store the primitives in a list which will be used below by the Mf::DblClick proc.
  2686. set Mfprimlist [split $mfprimKeyWords]
  2687. # We don't need mfprimKeyWords anymore :
  2688. unset mfprimKeyWords
  2689.  
  2690.  
  2691. ############   Completions  ################
  2692.  
  2693. set completions(Mf) {contraction Input completion::cmd completion::electric}
  2694.  
  2695. set Mfcmds { addto also angle ASCII atleast autorounding batchmode beginchar
  2696. begingroup blacker blankpicture boolean byte capsule_def ceilling
  2697. change_width char character charcode chardp chardx chardy charexists
  2698. charext charht charic charlist charwd checksum clearit clearpen clearxy
  2699. clear_pen_memory codingscheme comment contour controls cosd
  2700. counterclockwise cull cullit curl currentpen currentpicture
  2701. currenttransform currentwindow cutdraw cutoff cycle decimal decr
  2702. define_blacker_pixels define_good_x_pixels define_good_y_pixels
  2703. define_pixels define_whole_pixels delimiters designsize direction
  2704. directionpoint directiontime display displaying ditto dotprod doublepath
  2705. downto draw drawdot dropping dump else elseif endchar enddef endfor
  2706. endgroup endinput epsilon erase errhelp errmessage errorstopmode everyjob
  2707. exitif exitunless expandafter expr extensible extraspace extra_beginchar
  2708. extra_endchar face false family fill filldraw fillin fix_units flex floor
  2709. fontdimen fontmaking font_coding_scheme font_extra_space font_identifier
  2710. font_normal_shrink font_normal_space font_normal_stretch font_quad
  2711. font_size font_slant font_x_height forever forsuffixes from fullcircle
  2712. gfcorners gobble gobbled good.bot good.lft good.rt good.top good.x good.y
  2713. granularity grayfont halfcircle headerbytes hide hppp hround identity
  2714. imagerules incr infinity inner input interact interim interpath
  2715. intersectionpoint intersectiontimes inverse inwindow italcorr jobname
  2716. join_radius keeping kern known label labelfont labels length ligtable
  2717. loggingall makegrid makelabel makepath makepen message mexp mlog mode_setup
  2718. month newinternal nextlarger nodisplays nonstopmode normaldeviate
  2719. notransforms nullpen nullpicture numeric numspecial numtok openit
  2720. openwindow outer o_correction pair path pausing pencircle
  2721. penlabels penoffset penpos penrazor penspeck pensquare penstroke pen_bot
  2722. pen_lft pen_rt pen_top pickup picture pixels_per_inchs point postcontrol
  2723. precontrol primary primarydef proofing proofoffset proofrule
  2724. proofrulethickness quad quartercircle quote randomseed range readstring
  2725. reflectedabout relax reverse rotated rotatedaround round save savepen
  2726. scaled scantokens screenchars screenrule screenstrokes screen_cols
  2727. screen_rows scrollmode secondary secondarydef shifted shipit shipout show
  2728. showdependencies showit showstats showstopping showtoken showvariable
  2729. shrink sind slant slanted slantfont smoothing solve space special sqrt step
  2730. stop stretch string subpath substring suffix superellipse tensepath tension
  2731. tertiary tertiarydef text thru time titlefont tolerance totalweight
  2732. tracingall tracingcapsules tracingchoices tracingcommands tracingedges
  2733. tracingequations tracingmacros tracingnone tracingonline tracingoutput
  2734. tracingpens tracingrestores tracingspecs tracingstats tracingtitles
  2735. transform transformed true turningcheck turningnumber undraw undrawdot
  2736. unfill unfilldraw uniformdeviate unitpixel unitsquare unknown until upto
  2737. varchar vardef vppp vround warningcheck whatever withpen withweight xheight
  2738. xoffset xpart xscaled xxpart xypart year yoffset ypart yscaled yxpart
  2739. yypart zscaled 
  2740. }
  2741.     
  2742. # # # # # Abbreviations # # # # #
  2743. set Mfelectrics(bc)   "◊kill0$MfmodeVars(userBeginchar)(\"••\",••,••,••);\"••\";\n••\n\n$MfmodeVars(userEndchar);\n••"
  2744. set Mfelectrics(bg)   "◊kill0begingroup ••\n\nendgroup;\n••"
  2745. set Mfelectrics(dp) "◊kill0define_pixels(••);\n••"
  2746. set Mfelectrics(dbp) "◊kill0define_blacker_pixels(••);\n••"
  2747. set Mfelectrics(dcp) "◊kill0define_corrected_pixels(••);\n••"
  2748. set Mfelectrics(dgxp) "◊kill0define_good_x_pixels(••);\n••"
  2749. set Mfelectrics(dgyp) "◊kill0define_good_y_pixels(••);\n••"
  2750. set Mfelectrics(dhcp) "◊kill0define_horizontal_corrected_pixels(••);\n••"
  2751. set Mfelectrics(dwp) "◊kill0define_whole_pixels(••);\n••"
  2752. set Mfelectrics(dwvp) "◊kill0define_whole_vertical_pixels(••);\n••"
  2753. set Mfelectrics(dwvb) "◊kill0define_whole_vertical_blacker_pixels(••);\n••"
  2754. set Mfelectrics(sc) "◊kill0screen_cols:= ••;"
  2755. set Mfelectrics(sr) "◊kill0screen_rows:= ••;"
  2756. set Mfelectrics(xpa) "◊kill0expandafter "
  2757.  
  2758. set Mfelectrics(for)  " •• : •• endfor;\n••"
  2759. set Mfelectrics(def)   " ••=\n••\nenddef;\n••"
  2760. set Mfelectrics(prim)   "◊kill0primarydef ••=\n••\nenddef;\n••"
  2761. set Mfelectrics(sec)   "◊kill0secondarydef ••=\n••\nenddef;\n••"
  2762. set Mfelectrics(ter)   "◊kill0tertiarydef ••=\n••\nenddef;\n••"
  2763. set Mfelectrics(vardef)   " ••=\n••\nenddef;\n••"
  2764. set Mfelectrics(forever)   " •• endfor;\n••"
  2765. set Mfelectrics(forsuf)   " •• : •• endfor;\n••"
  2766. set Mfelectrics(if)   " •• : •• fi\n••"
  2767.  
  2768. # # # # # contractions # # # # #
  2769. set Mfelectrics(cu'n) "◊kill0currentpen "
  2770. set Mfelectrics(cu'p) "◊kill0currentpicture "
  2771. set Mfelectrics(cu't) "◊kill0currenttransform "
  2772. set Mfelectrics(cu'w) "◊kill0currentwindow "
  2773. set Mfelectrics(di'p) "◊kill0directionpoint "
  2774. set Mfelectrics(di't) "◊kill0directiontime "
  2775. set Mfelectrics(re'a) "◊kill0reflectedabout(••,••) ••"
  2776. set Mfelectrics(ro'a) "◊kill0rotatedaround(••,••) ••"
  2777.  
  2778. # Proc to complete the 'input' instructions. Type 'input  xx'  and  the  proc
  2779. # will look for a known mf file  whose  name  starts  with  'xx'.  This  proc
  2780. # searches among the mf files in the source directory  defined  in  the  mode
  2781. # prefs (and in ALL its subfolders). If  the  source  directory  hasn't  been
  2782. # defined, it searches in the current folder and its subfolders.
  2783. proc Mf::Completion::Input {dummy} {
  2784.     global MFfilenames 
  2785.     global mfSubmenuItems MfmodeVars pathToSourceFolder buildSourceFiles nestingDepth
  2786.     if {!$MfmodeVars(buildSourceFiles)} {
  2787.     set MFfilenames {}
  2788.     Mf::listSrcInDir [file dirname [win::Current]] mf
  2789.     }
  2790.     set MFfilenames [join $MFfilenames]
  2791.     regsub -all "  " $MFfilenames " " MFfilenames
  2792.     set cmd [completion::lastTwoWords begin]
  2793.     if { [string trim $begin] != "input" } { return 0 }
  2794.     completion::Find $cmd [completion::fromList $cmd MFfilenames]
  2795. }    
  2796.  
  2797.  
  2798. ############   Key Bindings  ################
  2799.  
  2800. # We define Metafont specific key bindings : all of them
  2801. # use 'ctrl-m' followed by a letter.
  2802. # Key bindings to choose the processing mode :
  2803. #    hit ctrl-m and then one of the letters p, s, l or u to select
  2804. #    respectively proof, smoke, localfont or user defined modes.
  2805. Bind 'm' <z> prefixChar Mf
  2806. Bind 'p' <M> {Mf::choosemodeProc "metafontMode" "proof"} Mf
  2807. Bind 's' <M> {Mf::choosemodeProc "metafontMode" "smoke"} Mf
  2808. Bind 'l' <M> {Mf::choosemodeProc "metafontMode" "localfont"} Mf
  2809. Bind 'u' <M> {Mf::choosemodeProc "metafontMode" "userDefined"} Mf
  2810. # Now key bindings to process the <b>uffer, a <f>ile or a <d>irectory :
  2811. # 'ctrl-m b', 'ctrl-m f' and 'ctrl-m d' respectively.
  2812. Bind 'b' <M> {Mf::menuProc "Metafont" "runTheBuffer"}
  2813. Bind 'f' <M> {Mf::menuProc "Metafont" "runAFile"}
  2814. Bind 'd' <M> {Mf::runafolderProc}
  2815. # A key binding ('ctrl-m n') to create a new font template :
  2816. Bind 'n' <M> {Mf::newtemplateProc} Mf
  2817. # A key binding ('ctrl-m m') to edit the <m>odes file modes.mf :
  2818. Bind 'm' <M> {Mf::openmodesmfProc} Mf
  2819. # A key binding ('ctrl-m c') to edit the macro <c>ommands file plain.mf :
  2820. Bind 'c' <M> {Mf::openplainmfProc} Mf
  2821. # A key binding ('ctrl-m g') to edit the log file :
  2822. Bind 'g' <M> {Mf::setnames [win::Current] ; Mf::editlogProc} Mf
  2823. # A key binding ('ctrl-m t') to convert <t>fm file to pl :
  2824. Bind 't' <M> {Mf::setnames [win::Current];Mf::doplProc;set prefixplf "";menu::buildSome otherFiles;Mf::editplProc} Mf
  2825. # A key binding ('ctrl-m i') to convert gf file to dv<i> :
  2826. Bind 'i' <M> {Mf::otherfilesProc "otherFiles" "convertGfToDvi"} Mf
  2827. # A key binding ('ctrl-m k') to convert gf file to p<k> :
  2828. Bind 'k' <M> {Mf::otherfilesProc "otherFiles" "convertGfToPk"} Mf
  2829. # A key binding ('ctrl-m v') to <v>iew the d<v>i :
  2830. Bind 'v' <M> {Mf::setnames [win::Current];Mf::viewdviProc} Mf
  2831.  
  2832.  
  2833.  
  2834. ##########    File Marking   ############
  2835.  
  2836. ##########    The "M" menu   ############
  2837. # Marking is different in mf source files and in pl or vpl files.
  2838. # # # In mf source files :
  2839. # The 'def' and 'vardef' definitions are marked in the "M" menu (top right of
  2840. # the current window). All the 'beginchar/endchar' groups will be marked too.
  2841. # Even if you changed the name of these  'beginchar'  routines  in  the  mode
  2842. # specific prefs : for instance, if you chose to call them "myfontchar"  then
  2843. # all the "myfontchar" instructions will be marked.
  2844. # For a 'beginchar' instruction, the proc looks if there is a string  at  the
  2845. # end of the line (usually describing the char being designed) : if yes  mark
  2846. # this string, if not then mark the 'beginchar' and its character code.
  2847. # # # In property list files :
  2848. # the LIGTABLE and FONTDIMEN arrays are marked as  well  as  every  character
  2849. # dimensions data.
  2850.  
  2851. proc Mf::MarkFile {} {
  2852.     global MfmodeVars
  2853.     global MFextfilename
  2854.     Mf::setnames [win::Current]
  2855.     if {$MFextfilename == ".mf"} {
  2856.     set bgnchar $MfmodeVars(userBeginchar)
  2857.     #  First mark the defs and vardefs
  2858.     set end [maxPos]
  2859.     set pos [minPos]
  2860.     while {![catch {search -f 1 -r 1 -m 0 -i 0 "^def \[ _\\w\]*|^vardef \[ _\\w\]*" $pos} res]} {
  2861.         set start [lindex $res 0]
  2862.         set end [lindex $res 1]
  2863.         set txt [getText [pos::math $start - 1] $end]
  2864.         set pos [nextLineStart $start]
  2865.         set inds($txt) [lineStart [pos::math $start - 1]]
  2866.     }
  2867.     if {[info exists inds]} {
  2868.         foreach f [lsort [array names inds]] {
  2869.         set next [nextLineStart $inds($f)]
  2870.         setNamedMark $f $inds($f) $next $next
  2871.         }
  2872.         unset inds
  2873.     }
  2874.     
  2875.     #  Then mark the 'beginchar' instructions
  2876.     set end [maxPos]
  2877.     set pos [minPos]
  2878.     while {![catch {eval [concat search -f 1 -r 1 -m 0 -i 0\
  2879.       [list "^$bgnchar.*$"] $pos]} res]} {
  2880.         set start [lindex $res 0]
  2881.         set end [lindex $res 1]
  2882.         set txt [getText [pos::math $start - 1] $end]
  2883.         if {[regexp "$bgnchar" $txt]} {
  2884.         if {![regexp {; ?\".*\" ?;} $txt txt]} {
  2885.             regexp "$bgnchar\[ _\\w\\d\\\(\\\"\]*" $txt txt 
  2886.             set txt "$txt)"
  2887.         } else {
  2888.             set txt [string trim $txt ";\""]
  2889.         }
  2890.         }
  2891.         set pos [nextLineStart $start]
  2892.         set inds($txt) [lineStart [pos::math $start - 1]]
  2893.     }
  2894.     if {[info exists inds]} {
  2895.         foreach f [lsort [array names inds]] {
  2896.         set next [nextLineStart $inds($f)]
  2897.         setNamedMark $f $inds($f) $next $next
  2898.         }
  2899.     }
  2900.     } else {
  2901.     set pos [minPos]
  2902.     set end [maxPos]
  2903.     while {![catch {search -f 1 -r 1 -m 0 -i 0 {^[\(](FONTDIMEN|LIGTABLE)} $pos} res]} {
  2904.         set start [lindex $res 0]
  2905.         set end [lindex $res 1]
  2906.         set txt [getText [pos::math $start +1] $end]
  2907.         set pos [nextLineStart $start]
  2908.         set inds($txt) [lineStart [pos::math $start - 1]]
  2909.     }
  2910.     
  2911.     if {[info exists inds]} {
  2912.         foreach f  [array names inds] {
  2913.         set next [nextLineStart $inds($f)]
  2914.         setNamedMark $f $inds($f) $next $next
  2915.         }
  2916.     }
  2917.     
  2918.     set pos [minPos]
  2919.     set end [maxPos]
  2920.     while {![catch {search -f 1 -r 1 -m 0 -i 0 {^[\(]CHARACTER[ \w\d]*} $pos} res]} {
  2921.         set start [lindex $res 0]
  2922.         set end [lindex $res 1]
  2923.         set txt [getText [pos::math $start +1] $end]
  2924.         set pos [nextLineStart $start]
  2925.         set inds($txt) [lineStart [pos::math $start - 1]]
  2926.     }
  2927.     
  2928.     if {[info exists inds]} {
  2929.         foreach f [lsort -increasing [array names inds]] {
  2930.         set next [nextLineStart $inds($f)]
  2931.         setNamedMark $f $inds($f) $next $next
  2932.         }
  2933.     }
  2934.     }
  2935. }
  2936.  
  2937.  
  2938. ##########    The "{}" menu   ############
  2939. # The "{}" pop-up menu contains the functions defined in a  source  file.  We
  2940. # list here all the def and vardef definitions as well  as  the  files  input
  2941. # with an "input"  command.  Here  we  'lappend'  twice  on  purpose  because
  2942. # ::parseFuncs general proc takes one out of two :
  2943. proc Mf::parseFuncs {} {
  2944.     global funcExpr Mfparse
  2945.     set Mfparse 1
  2946.     set pos [minPos]
  2947.     set m {}
  2948.     while {[set res [search -s -f 1 -r 1 -i 0 -n "$funcExpr" $pos]] != ""} {
  2949.     lappend m [eval getText $res]
  2950.     lappend m [eval getText $res]
  2951.     set pos [lindex $res 1]
  2952.     }
  2953.     if {[expr {[lsearch -regexp $m "^(def|primarydef|secondarydef|tertiarydef) "] > -1}]} {lappend m "DEF :" ; lappend m "DEF :"}
  2954.     if {[expr {[lsearch -regexp $m "^vardef "] > -1}]} {lappend m "VARDEF :" ; lappend m "VARDEF :"}
  2955.     set m [lsort -ignore $m]
  2956.     set f [lsort -ignore [Mf::findInputFiles]]
  2957.     if {[llength $f]} {
  2958.     set f [linsert $f 0 "INPUT FILES : " "INPUT FILES : "]
  2959.     set m [linsert $m 0 "(-" "(-"]
  2960.     }
  2961.     return [concat $f $m]
  2962. }
  2963.  
  2964. proc Mf::findInputFiles {} {
  2965.     global Mfparse
  2966.     set files {}
  2967.     set pos [minPos]
  2968.     while {[set res [search -s -f 1 -r 1 -i 0 -n {^.*input.+$} $pos]] != ""} {
  2969.     set txt [eval getText $res]
  2970.     if {![regexp {^\%} $txt]} {
  2971.         regsub -all "(^.*input +)" $txt "" txt
  2972.         regsub -all " .+" $txt "" txt
  2973.         lappend files $txt
  2974.         if {$Mfparse} {lappend files $txt}
  2975.     } 
  2976.     set pos [lindex $res 1]
  2977.     }
  2978.     set Mfparse 0
  2979.     return $files
  2980. }
  2981.  
  2982.  
  2983. ##########   Double-click   ############
  2984. # If you Command-Double-Click on a keyword you access  its  definition.  This
  2985. # proc looks first for a definition in the current file itself, then  in  the
  2986. # list of primitives, then in the plain Metafont macros file and  finally  in
  2987. # the other text files located in the same folder and called in  the  current
  2988. # file by an input command (typically they are macros files).
  2989.  
  2990. set Mfinternals [list "blacker" "currentwindow" "displaying" "eps" "epsilon" \
  2991.   "infinity" "join_radius" "number_of_modes" "o_correction" "pair" "path" "pen_bot"\
  2992.   "pen_lft" "pen_rt" "pen_top" "pixels_per_inch" "screen_cols" "screen_rows" "tolerance" ]
  2993.  
  2994. # set Mfconstants [list "basename" "base_version" "blankpicture" "currentpen"\
  2995. #  "currentpen_path" "currenttransform" "ditto" "extra_beginchar" "extra_endchar"\
  2996. #  "extra_setup" "fullcircle" "halfcircle" "identity" "mode_name" "penspeck"\
  2997. #  "quartercircle" "rulepen" "unitpixel" "unitsquare" ]
  2998.  
  2999. proc Mf::DblClick {from to} {
  3000.     global MfmodeVars pathToPlainMfFile Mfprimlist Mfparse Mfinternals 
  3001. #     global Mfconstants
  3002.     select $from $to
  3003.     set word [getText $from $to]
  3004.     set Mfparse 0
  3005.     # First we look for the word's definition in the current file :
  3006.     set pos [minPos]
  3007.     if {![catch {eval [concat search -f 1 -r 1 -m 1 -i 0\
  3008.       [list "\(var|primary|secondary|tertiary\)?def\[ \\w\]+$word"] $pos]} res]} {
  3009.     goto [lineStart [lindex $res 0]]
  3010.     select [lindex $res 0] [lindex $res 1]
  3011.     return
  3012.     }
  3013.     # If search failed, check if it is a Metafont primitive.
  3014.     if {[expr {[lsearch -exact $Mfprimlist "$word"] > -1}]} {
  3015.     alertnote "\"$word\" is a Metafont primitive.\rSee the MetafontBook."
  3016.     return
  3017.     }
  3018.     # If search failed, check if it is a 'newinternal'.
  3019.     if {[expr {[lsearch -exact $Mfinternals "$word"] > -1}]} {
  3020.     alertnote "\"$word\" is a constant of type \"newinternal\".\rSee the MetafontBook or Metapost User's Manual."
  3021.     return
  3022.     }
  3023.     # If search failed, look in the plain.mf macros file. Its path must
  3024.     # have been defined in the mode prefs.
  3025.     set f $MfmodeVars(pathToPlainMfFile)
  3026.     if {![file exists $f]} {
  3027.     alertnote "Can't find file plain.mf : where is it ?"
  3028.     catch {getfile "Find file plain.mf"} chemin
  3029.     if {$chemin == ""} {return}
  3030.     removeArrDef MfmodeVars pathToPlainMfFile
  3031.     set pathToPlainMfFile $chemin
  3032.     set MfmodeVars(pathToPlainMfFile) [set chemin]
  3033.     addArrDef MfmodeVars pathToPlainMfFile $chemin
  3034.     }    
  3035.     set cid [scancontext create]
  3036.     set searchstri "(var|primary|secondary|tertiary)?def\[ \\w\]+$word\[^\\w\]+"
  3037.     set searchstrii "(path|pen|picture|string|transform)\[ ,\\w\]+$word"
  3038.     scanmatch -- $cid $searchstri {set matches($f) 1}
  3039.     scanmatch -- $cid $searchstrii {set matches($f) 1}
  3040.     if {![catch {set fid [open $f]}]} {
  3041.     message "Looking at '[file tail $f]'"
  3042.     scanfile $cid $fid
  3043.     close $fid
  3044.     }
  3045.     if {[info exists matches]} {
  3046.     Mf::BringOrEdit $MfmodeVars(pathToPlainMfFile) -r
  3047.     goto $matchInfo(offset)
  3048.     set res [search -s -f 1 -r 0 -i 0 -m 1 -n $word $matchInfo(offset)]
  3049.     select $matchInfo(offset)] [lindex $res 1]
  3050.     unset matches
  3051.     return
  3052.     }
  3053.     # As a last resort, we search all the input files found in the source file provided
  3054.     # they are located in the same folder as the current file.
  3055.     set f [Mf::findInputFiles]
  3056.     if {[llength $f]} {
  3057.     foreach filetail $f {
  3058.         set filetail [string trim $filetail ".mf"]
  3059.         set fullname [file join [file dirname [win::Current]] $filetail.mf]
  3060.         if {[file exists $fullname]} {
  3061.         if {![catch {set fid [open $fullname]}]} {
  3062.             message "Looking at '$filetail'"
  3063.             scanfile $cid $fid
  3064.             close $fid
  3065.         }
  3066.         } 
  3067.         if {[info exists matches]} {
  3068.         Mf::BringOrEdit $fullname -r
  3069.         goto $matchInfo(offset)
  3070.         set res [search -s -f 1 -r 0 -i 0 -n $word $matchInfo(offset)]
  3071.         select $matchInfo(offset) [lindex $res 1]
  3072.         return
  3073.         }    
  3074.     }
  3075.     }    
  3076.     scancontext delete $cid
  3077.     beep
  3078.     message "Could'nt find a definition for \"$word\"."
  3079. }
  3080.  
  3081.  
  3082. ##########   Option-click on title bar   ############
  3083. # If you Option-Click on a the title bar, you get a list of all  the  mf  and
  3084. # log files located :
  3085. # - in the "local" folder (folder of currentwindow). 
  3086. # - in the "selected" folder (selected when you process an entire folder with
  3087. # "Run A Folder" or in the "Remove Files" sub menu)
  3088. # Selecting any item will open it in a window or bring its window to front if
  3089. # it is already open.
  3090.  
  3091. proc Mf::OptionTitlebar {} {
  3092.     global MFcurrentdir sep minItemsInTitlePopup
  3093.     set minItemsInTitlePopup 1
  3094.     set sep "-"
  3095.     set filesinlocaldir [glob -nocomplain -dir [file dirname [win::Current]] *.mf]
  3096.     set logsinlocaldir [glob -nocomplain -dir [file dirname [win::Current]] *.log]
  3097.     set filesinselecteddir {}
  3098.     set logsinselecteddir {}
  3099.     if {$MFcurrentdir !="" && $MFcurrentdir!=[file dirname [win::Current]]} {
  3100.     set filesinselecteddir [glob -nocomplain -dir $MFcurrentdir *.mf]
  3101.     set logsinselecteddir [glob -nocomplain -dir $MFcurrentdir *.log]
  3102.     }
  3103.     set l {}
  3104.     foreach f  $filesinlocaldir {
  3105.     lappend l [file tail $f]
  3106.     }
  3107.     foreach dir [list filesinselecteddir logsinlocaldir logsinselecteddir] {
  3108.     eval [concat "if \{\[llength \$$dir\]\} \{lappend l \$sep ; \
  3109.       foreach f \$$dir \{lappend l \[file tail \$f\]\}\}"]      
  3110.     }
  3111.     return $l
  3112. }
  3113.  
  3114. proc Mf::OptionTitlebarSelect {item} {
  3115.     global MFcurrentdir sep
  3116.     if {$item == $sep} {return}
  3117.     if {[file exists [file join [file dirname [win::Current]] $item]]} {
  3118.     Mf::BringOrEdit [file join [file dirname [win::Current]] $item] -c
  3119.     } else {
  3120.     Mf::BringOrEdit [file join $MFcurrentdir $item] -c
  3121.     }
  3122. }
  3123.  
  3124. proc Mf::BringOrEdit {name {type ""}} {
  3125.     catch {lsearch -exact [winNames] [file tail $name]} indx
  3126.     if {[expr {$indx > -1}]} {
  3127.     bringToFront [file tail $name]
  3128.     } else {
  3129.     edit $type $name
  3130.     }
  3131. }
  3132.  
  3133.  
  3134.  
  3135.  
  3136. # Send comments to :
  3137. # <berdesg@easynet.fr>